Preskoči na glavno vsebino

Kako zaščititi več delovnih listov hkrati v Excelu?

Če imate delovni zvezek, ki vsebuje več delovnih listov, zdaj pa morate zaščititi vse delovne liste ali nekatere posebne delovne liste, običajno v Excelu, lahko list zaščitite le enega za drugim s funkcijo Protect Sheet, vendar je ta metoda dolgočasna in dolgotrajno, če obstaja veliko listov, je treba zaščititi. Kako v Excelu hitro in enostavno zaščitite več listov hkrati?

Zaščitite vse liste hkrati s kodo VBA

Zaščitite več listov hkrati s programom Kutools za Excel

Odstranite zaščito več listov hkrati s kutools za Excel


puščica modri desni mehurček Zaščitite vse liste hkrati s kodo VBA

Z naslednjo kodo VBA lahko z istim geslom hkrati zaščitite vse liste aktivnega delovnega zvezka, in sicer tako:

1. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: Zaščitite vse delovne liste v delovnem zvezku hkrati:

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. Nato pritisnite F5 tipko za zagon kode in v pozivno polje vnesite geslo za zaščitene liste, glejte posnetek zaslona:

doc-zaščita-več listov1-1

4. Kliknite OKin nato znova vnesite geslo za potrditev gesla.

doc-zaščita-več listov2-2

5. Nato kliknite OK, in vsi listi so bili zaščiteni z istim geslom.


puščica modri desni mehurček Zaščitite več listov hkrati s programom Kutools za Excel

Včasih ne želite zaščititi vseh listov v delovnem zvezku in želite zaščititi samo nekatere posebne liste, v tem primeru zgornja koda ne bo delovala. Ampak s Kutools za ExcelJe Zaščitite delovni list Pripomoček lahko hitro in enostavno zaščitite vse liste in določene liste.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 60 dneh

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite Kutools Plus > Zaščitite delovni list, glej posnetek zaslona:

2. v Zaščitite delovni list v pogovornem oknu izberite liste, ki jih želite zaščititi. (Privzeto so označeni vsi delovni listi v trenutnem delovnem zvezku.) Oglejte si posnetek zaslona:

doc-zaščita-več listov4-4

3. in kliknite OKin nato v pogovorno okno Protect Worksheet vnesite in potrdite geslo. Oglejte si posnetek zaslona:

doc-zaščita-več listov5-5

4. Nato kliknite OK, izbrani delovni listi so zaščiteni.

Kliknite Protect Worksheet, če želite izvedeti več o tej funkciji.


puščica modri desni mehurček Odstranite zaščito več listov hkrati s kutools za Excel

Kako lahko hkrati zaščitite več zaščitenih delovnih listov v delovnem zvezku? Seveda, Kutools za Excel ponuja tudi Odstranite zaščito delovnega lista pripomoček za takojšnjo odstranitev zaščite.

Naredite naslednje:

1. Odprite svoj delovni zvezek, ki vsebuje zaščitene delovne liste.

2. Nato kliknite Kutools Plus > Odstranite zaščito delovnega lista, glej posnetek zaslona:

3. v Odstranite zaščito delovnega lista V pogovornem oknu se zaščiteni listi uvrstijo na seznam in nato kliknite Ok gumb, glej posnetek zaslona:

doc-zaščita-več listov7-7

4. In potem a Odstranite zaščito delovnega lista odpre se pogovorno okno, ki vas opomni, da vnesete geslo, ki ste ga ustvarili za zaščito delovnih listov, glejte posnetek zaslona:

doc-zaščita-več listov8-8

5. Po vnosu gesla kliknite Ok, vsi preverjeni delovni listi v seznamskem polju so nezaščiteni.

Opomba: Delovni listi morajo imeti enako geslo.

Če želite izvedeti več o tej funkciji Unprotect Worksheet.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


puščica modri desni mehurček Predstavitev: Zaščitite ali odstranite zaščito vseh delovnih listov hkrati s programom Kutools za Excel

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Povezani članek:

Kako odstraniti zaščito več delovnih listov hkrati v Excelu?

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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