Ugrás a tartalomra

Hogyan védhetünk egyszerre több munkalapot az Excelben?

Tegyük fel, hogy van egy munkafüzete, amely több munkalapot tartalmaz, és most meg kell védenie az összes munkalapot vagy néhány konkrét munkalapot, általában az Excel programban, a lapot csak egyesével védheti meg a Védelem lap funkcióval, de ez a módszer unalmas és időigényes, ha számos lap van, meg kell védeni. Hogyan védhet több és több lapot egyszerre az Excel programban gyorsan és egyszerűen?

VBA kóddal védje az összes lapot egyszerre

Védje egyszerre több lapot a Kutools for Excel segítségével

Oldja fel egyszerre több munkalap védelmét a Kutools for Excel segítségével


nyíl kék jobb buborék VBA kóddal védje az összes lapot egyszerre

A következő VBA-kóddal az aktív munkafüzet összes lapját egyszerre, ugyanazzal a jelszóval védheti meg, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: Egy munkafüzet összes munkalapjának védelme egyszerre:

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és a prompt dobozba írja be a védett lapok jelszavát, lásd a képernyőképet:

doc-protect-multiple-sheet1-1

4. Kattints OK, majd a jelszó megerősítéséhez írja be újra a jelszót.

doc-protect-multiple-sheet2-2

5. Ezután kattintson OK, és az összes lapot ugyanazzal a jelszóval védték.


nyíl kék jobb buborék Védje egyszerre több lapot a Kutools for Excel segítségével

Előfordul, hogy nem szeretné védeni a munkafüzet összes lapját, és csak néhány konkrét lapot szeretne megvédeni, ebben a helyzetben a fenti kód nem fog működni. De azzal Kutools az Excel számára'S Munkalap védelme segédprogrammal, gyorsan és egyszerűen megvédheti az összes lapot és az egyes lapokat.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 60 nap alatt kipróbálható

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus > Munkalap védelme, lásd a képernyőképet:

2. Az Munkalap védelme párbeszédpanelen válassza ki a védeni kívánt lapokat. (Alapértelmezés szerint az aktuális munkafüzet összes munkalapja be van jelölve.) Lásd a képernyőképet:

doc-protect-multiple-sheet4-4

3. és kattintson OK, majd írja be és erősítse meg a jelszót a Munkalap védelme párbeszédpanelen. Lásd a képernyőképet:

doc-protect-multiple-sheet5-5

4. Ezután kattintson OK, a kiválasztott munkalapok védettek lettek.

Kattintson a Munkalap védelme elemre, ha többet szeretne megtudni erről a funkcióról.


nyíl kék jobb buborék Oldja fel egyszerre több munkalap védelmét a Kutools for Excel segítségével

Hogyan védekezhetett egyszerre több védett munkalap egy munkafüzetben? Természetesen, Kutools az Excel számára is biztosítja a A munkalap védelme megszüntetése segédprogram azonnali védelemhez.

Kérjük, tegye a következőket:

1. Nyissa meg a védett munkalapokat tartalmazó munkafüzetet.

2. Ezután kattintson Kutools Plus > A munkalap védelme megszüntetése, lásd a képernyőképet:

3. Az A munkalap védelme megszüntetése párbeszédpanelen a védett lapok felkerülnek a listára, majd kattintson a gombra Ok gomb, lásd a képernyőképet:

doc-protect-multiple-sheet7-7

4. És akkor a A munkalap védelme megszüntetése megjelenik a párbeszédpanel, amely emlékezteti a munkalapok védelmére létrehozott jelszó megadására, lásd a képernyőképet:

doc-protect-multiple-sheet8-8

5. A jelszó beírása után kattintson a gombra Ok, a listamező összes bejelölt munkalapja nincs védve.

Jegyzet: A munkalapoknak azonos jelszóval kell rendelkezniük.

Ha többet szeretne megtudni erről a munkalap védtelenítéséről.

Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!


nyíl kék jobb buborék Demo: Az összes munkalap védelme vagy eltávolítása egyszerre a Kutools for Excel segítségével

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

Kapcsolódó cikk:

Hogyan lehet egyszerre több munkalapot védeni az Excelben?

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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