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

Jak chránit více listů najednou v aplikaci Excel?

Předpokládejme, že máte sešit, který obsahuje více listů, a nyní musíte chránit všechny listy nebo některé konkrétní listy, obvykle v aplikaci Excel, můžete list chránit pouze jeden po druhém pomocí funkce Chránit list, ale tato metoda je zdlouhavá a časově náročné, pokud existuje mnoho listů, je třeba chránit. Jak rychle a snadno chráníte více listů najednou v aplikaci Excel?

Chraňte všechny listy najednou pomocí kódu VBA

Chraňte více listů najednou pomocí programu Kutools pro Excel

Odemkněte více listů najednou pomocí programu Kutools pro Excel


šipka modrá pravá bublina Chraňte všechny listy najednou pomocí kódu VBA

S následujícím kódem VBA můžete chránit všechny listy aktivního sešitu najednou pomocí stejného hesla, postupujte takto:

1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Chraňte všechny listy v sešitu najednou:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění kódu a do pole výzvy zadejte heslo pro chráněné listy, viz screenshot:

doc-protect-multiple-sheets1-1

4, klikněte OKa poté heslo znovu potvrďte.

doc-protect-multiple-sheets2-2

5. Pak klikněte na tlačítko OKa všechny listy byly chráněny stejným heslem.


šipka modrá pravá bublina Chraňte více listů najednou pomocí programu Kutools pro Excel

Někdy nechcete chránit všechny listy v sešitu a chcete chránit pouze některé konkrétní listy, v této situaci výše uvedený kód nebude fungovat. Ale s Kutools pro ExcelJe Chraňte pracovní list nástroj, můžete rychle a snadno chránit všechny listy i konkrétní listy.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 60 dnů

Po instalaci Kutools pro Excel, proveďte následující kroky:

1, klikněte Kutools Plus > Chraňte pracovní list, viz screenshot:

2. V Chraňte pracovní list V dialogovém okně vyberte listy, které chcete chránit. (Ve výchozím nastavení jsou zaškrtnuty všechny listy v aktuálním sešitu.) Viz screenshot:

doc-protect-multiple-sheets4-4

3, A klikněte na tlačítko OKa potom zadejte a potvrďte heslo v dialogovém okně Chránit list. Viz screenshot:

doc-protect-multiple-sheets5-5

4. Pak klikněte na tlačítko OK, byly vybrané pracovní listy chráněny.

Kliknutím na Chránit list získáte další informace o této funkci.


šipka modrá pravá bublina Odemkněte více listů najednou pomocí programu Kutools pro Excel

Jak můžete zrušit ochranu více chráněných listů v sešitu současně? Samozřejmě, Kutools pro Excel také poskytuje Odemknout pracovní list nástroj pro jejich okamžité zrušení ochrany.

Proveďte prosím následující kroky:

1. Otevřete sešit, který obsahuje chráněné listy.

2. Pak klikněte na tlačítko Kutools Plus > Odemknout pracovní list, viz screenshot:

3. V Odemknout pracovní list V dialogovém okně se chráněné listy zobrazí v seznamu a poté klikněte na Ok tlačítko, viz screenshot:

doc-protect-multiple-sheets7-7

4. A pak a Odemknout pracovní list Zobrazí se dialogové okno, které vám připomene, že jste zadali heslo, které jste vytvořili k ochraně listů, viz screenshot:

doc-protect-multiple-sheets8-8

5. Po zadání hesla klikněte na Ok, všechny zaškrtnuté listy v seznamu byly nechráněné.

Poznámka: Pracovní listy musí mít stejné heslo.

Další informace o této funkci Odemknout pracovní list.

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


šipka modrá pravá bublina Ukázka: Chraňte nebo odemkněte všechny listy najednou pomocí Kutools pro Excel

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Související článek:

Jak zrušit ochranu více pracovních listů najednou v aplikaci Excel?


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 (21)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Skvělé – jak je tedy odchránit všechny najednou? Jsem amatér, takže potřebuji více informací.
Tento komentář byl moderátorem webu minimalizován
[quote]Skvělé – jak je tedy odchránit všechny najednou? Jsem amatér, takže potřebuji více informací.Od Kristin Dzugan[/quote] :-) Můžete je snadno odjistit jako http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Tento komentář byl moderátorem webu minimalizován
Sub unprotect_all_sheets() top: pass = InputBox("heslo?") repass = InputBox("Verify Password") Pokud ne (pass = repass) Then MsgBox "udělali jste buchbu" Přejít na začátek Konec If For i = 1 To Worksheets .Počítat další pro každý s v ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Myslím, že máte nějaké listy, které jsou již chráněny. Prosím, zrušte ochranu všech listů B4, na kterých je spuštěno toto makro." End Sub
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát :-)
Tento komentář byl moderátorem webu minimalizován
Jak řekla Kristin, jak je všechny najednou odchránit?
Tento komentář byl moderátorem webu minimalizován
Takže, jak se mohu zbavit ochrany bez kutoolů?
Tento komentář byl moderátorem webu minimalizován
[quote]Takže, jak mohu odchránit bez kutoolů?Od cz[/quote] Můžete zrušit ochranu listu bez Kutools pro Excel. Stačí kliknout pravým tlačítkem na kartu listu, kterou chcete zrušit, a kliknout na příkaz Odemknout list a poté zadat heslo. :-)
Tento komentář byl moderátorem webu minimalizován
když vložím kód, objeví se "chyba běhu 1004?" zvýraznění následujícího žlutě... s.Protect Password:=pass
Tento komentář byl moderátorem webu minimalizován
Najednou mám také chybu 1004. Makro používám měsíce, ale teď nejde spustit.
Tento komentář byl moderátorem webu minimalizován
Ahoj, taky jsem měl tento problém. Ukázalo se, že jej nelze spustit, pokud máte v sešitu vybrané všechny listy. Zkuste vybrat pouze jeden list a poté spustit.
Tento komentář byl moderátorem webu minimalizován
Najednou mám problém s chybou 1004. Makro používám již několik měsíců a náhodně selže.
Tento komentář byl moderátorem webu minimalizován
Najednou mám také chybu 1004. Najde někdo řešení?
Tento komentář byl moderátorem webu minimalizován
když jsem aktivoval tento VBA, hypertextový odkaz nefunguje. jak je mohu přimět, aby fungovaly? tnx :)
Tento komentář byl moderátorem webu minimalizován
Děkuji! To je úžasné, dokonce jsem byl schopen upravit kód VBA, abych mohl zrušit ochranu všech listů najednou! :) Sub unprotect_all_sheets() top: pass = InputBox("heslo?") repass = InputBox("Verify Password") Pokud ne (pass = repass) Then MsgBox "udělali jste buchbu" Přejít na začátek Konec If For i = 1 Do Worksheets.Count Další pro každý s v ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Myslím, že máte nějaké listy, které jsou již chráněny. Prosím, zrušte ochranu všech listů B4, na kterých je spuštěno toto makro." End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj, potřebuji pomoc, výše uvedený kód byl velmi užitečný, ale zamyká řazení (také automatický filtr), můžete prosím poskytnout kód k vyřešení tohoto problému a také kam by byl vložen. Děkuji předem.
Tento komentář byl moderátorem webu minimalizován
V sešitu aplikace Excel 2013 mám karty s grafy a listy. Výše uvedené kódování VBA funguje pro ochranu listů, ale ne pro samostatné karty grafu. Jak mohu chránit heslem více karet grafu a více listů v mém sešitu? Dík!
Tento komentář byl moderátorem webu minimalizován
Ahoj, použil jsem tento kód, teď nepřijímá moje heslo, abych se dostal zpět do tabulky!!
Tento komentář byl moderátorem webu minimalizován
Jak zamaskuji heslo pomocí metody VBA? Nemohu najít tyto informace přes google nebo soubory nápovědy F1. Díky předem!
Tento komentář byl moderátorem webu minimalizován
Díky za úžasný nástroj pro ochranu a odchrání všech listů najednou. Prosím, naveďte mě, jsem schopen zrušit ochranu všech listů v sešitu najednou, ale když spustím kód VBA pro ochranu všech listů, jsou chráněny a ponechány pouze první 4 listy nebo ponechány nechráněné. Pomozte mi prosím problém vyřešit.
Tento komentář byl moderátorem webu minimalizován
Snažím se to použít ve sdíleném sešitu, ale zobrazuje se mi chyba jazyka Microsoft Visual Basic „Chyba za běhu '1004“: Chyba definovaná aplikací nebo objektem.“ Jen hledám návrhy, jak to obejít. pomoc by byla oceněna
Tento komentář byl moderátorem webu minimalizován
Objeví se, když je list již zamknutý
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í