Přejít k hlavnímu obsahu

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ší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

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 snižuje stovky kliknutí myší každý den!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to use this in a shared workbook but I get a Microsoft Visual Basic error "Run-time error '1004": Application-defined or object-defined error" I am just looking for suggestions on how to get around this. Any help would be appreciated
This comment was minimized by the moderator on the site
Occurs when sheet is already locked
This comment was minimized by the moderator on the site
Thanks for the wonder full tool to protect & unprotect all the sheets at a time. Please guide me I am able to unprotect all sheets in my work book at a time but when I run protect all sheets VBA Code then only first 4 sheets are protected & rest or left unprotected. Please help me to sort out the issue.
This comment was minimized by the moderator on the site
How do I mask the password using the VBA method? I can not find this information via google or F1 help files. Thanks in advance!
This comment was minimized by the moderator on the site
Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
This comment was minimized by the moderator on the site
I have chart tabs and worksheets in my Excel 2013 workbook. The VBA coding above works for the protecting the worksheets but not the separate chart tabs. How do i password protect the multiple chart tabs and multiple worksheets in my workbook? Thanks!
This comment was minimized by the moderator on the site
Hey, I need some help, the above code was very helpful, but it locks the sort (auto filter as well) can you please provide code to solve that problem and also where it would be inserted. Thank you in advance.
This comment was minimized by the moderator on the site
Thank you! This is awesome, I was even able to modify the VBA code so that I could unprotect all sheets at once! :) Sub unprotect_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 Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro." End Sub
This comment was minimized by the moderator on the site
when i activated this VBA, hyperlink doesn't work. how can i make them work? tnx :)
This comment was minimized by the moderator on the site
I am suddenly having the 1004 error as well. Anyone find a solution?
This comment was minimized by the moderator on the site
I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations