Note: The other languages of the website are Google-translated. Back to English
English English

Jak povolit úpravy objektů v chráněném listu v aplikaci Excel?

Ve výchozím nastavení nelze vložené objekty, například tvary, textová pole po ochraně listu upravovat. Pokud potřebujete upravit objekty v chráněném listu, vyzkoušejte metody v tomto článku.

Zaškrtnutím možnosti Upravit objekty povolte úpravy objektů v chráněném listu
Povolte úpravy objektů v chráněném listu pomocí kódu VBA


Zaškrtnutím možnosti Upravit objekty povolte úpravy objektů v chráněném listu


Zaškrtnutím možnosti Upravit objekty povolíte úpravy objektů před ochranou listu. Postupujte prosím následovně.

1. cvaknutí přezkoumání > Chraňte plech.

2. V Chraňte plech V dialogovém okně zadejte heslo do Heslo pro zrušení ochrany listu políčko a zaškrtněte políčko Upravit objekty Zaškrtněte políčko Povolit všem uživatelům tohoto listu OK knoflík. Potvrďte své heslo v Potvrďte heslo dialogové okno. Viz snímek obrazovky:

Nyní je list chráněn a všechny objekty v tomto chráněném listu lze upravovat.


Povolte úpravy objektů v chráněném listu pomocí kódu VBA

Pokud byl list již chráněn, můžete zkusit níže uvedený skript VBA a povolit úpravy objektů. Postupujte prosím následovně.

1. zmáčkni Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte Tato pracovní kniha vlevo Projekt podokno. Poté zkopírujte a vložte níže uvedený kód VBA do Tento sešit (kód) okno.

Kód VBA: Povolte úpravy objektů v chráněném listu

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("Sheet3")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect Password:="123", _
        Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
        AllowFormattingCells:=True
    End With
    Application.ScreenUpdating = True
End Sub

Poznámka: V kódu je List3 chráněný list obsahující objekty, které potřebujete upravit. A číslo „123“ je heslo chráněného listu. Změňte je prosím podle potřeby.

3. zmáčkni F5 klíče ke spuštění kódu a všechny objekty v tomto chráněném listu lze okamžitě upravovat.


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (1)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
děkuji za užitečný článek. Zkoušel jsem metodu kódu VBA, ale úplně mi to nefunguje.


Můj kód (omlouvám se za formátování, nelze jej zkopírovat a vložit):


Dílčí sešit_otevřený ()

Dim ws jako pracovní list

Pro každý ws In sešity

ws.Protect UserInterfaceOnly:=True, Password:="123"

ws.Enable AutoFilter = True

ws.EnableOutlining = Pravda

Pokud ActiveSheet.Protection.AllowFormattingColumns = False Then

ActiveSheet.Protect AllowFormattingColumns:=Pravda

End If

S pracovními listy ("List1")

.EnableOutlining = Pravda

.EnableAutoFilter = True

.Protect Password:="123", _

Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True

Konec s

Další ws

End Sub


Funguje to dobře, ale jakmile soubor uložím, zavřu a znovu otevřu, tak to udělám také

- požádáni o okamžité vložení hesla (např. 5krát) nebo

- možnost odstranit ochranu bez jakéhokoli hesla pro jeden z pracovních listů (obvykle "List1" jako v kódu)


Dostává někdo stejnou chybu jako já? Nebo mi může někdo pomoci?


Děkuji předem.


BR

Vanessa
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění