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

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édjen egyszerre több lapot a Kutools for Excel programmal

Több lap egyidejű védelme a kutools for Excel alkalmazással


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édjen egyszerre több lapot a Kutools for Excel programmal

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 Több lap egyidejű védelme a kutools for Excel alkalmazással

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ót Kutools for Excel Now!


nyíl kék jobb buborék Bemutató: Az összes munkalap védelme vagy visszavonása egyszerre az Kutools for Excel alkalmazással

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 termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (21)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Remek – szóval hogyan lehet eltávolítani őket egyszerre? Amatőr vagyok, ezért több információra lenne szükségem.
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote]Nagyszerű – szóval hogyan lehet eltávolítani őket egyszerre? Amatőr vagyok, ezért több információra lenne szükségem.Írta: Kristin Dzugan[/quote] :-) Könnyen feloldhatod őket, mint http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
A weboldal moderátora ezt a megjegyzést minimalizálta
Sub unprotect_all_sheets() top: pass = InputBox("jelszó?") repass = InputBox("Jelszó ellenőrzése") Ha nem (pass = repass) Akkor MsgBox "boo boo" Ugrás az elejére End If For i = 1 Munkalapokhoz .Count Next For Every s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Kilépés Sub hoppá: MsgBox "Azt hiszem, van néhány munkalapja, amelyek már védettek. Kérjük, távolítsa el az összes B4 munkalapot, amelyen ez a makró fut." Vége Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon szépen köszönöm :-)
A weboldal moderátora ezt a megjegyzést minimalizálta
Ahogy Kristin mondta, hogyan lehet egyszerre védeni őket?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szóval, hogyan tudom megszüntetni a védelmet kutools nélkül?
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote] Szóval, hogyan tudom megszüntetni a védelmet kutools nélkül?Írta: cz[/quote] A munkalap védelmét feloldhatja a Kutools for Excel nélkül. Egyszerűen kattintson a jobb gombbal arra a lapfülre, amelynek védelmét fel szeretné oldani, majd kattintson a Védelem megszüntetése parancsra, majd adja meg jelszavát. :-)
A weboldal moderátora ezt a megjegyzést minimalizálta
amikor beírom a kódot, megjelenik a "futásidejű hiba 1004??", amely sárgával kiemeli a következőket... s.Protect Password:=pass
A weboldal moderátora ezt a megjegyzést minimalizálta
Hirtelen nálam is megjelenik az 1004-es hiba. Hónapok óta használom a makrót, de most nem fut.
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok, nekem is volt ilyen problémám. Kiderült, hogy nem tud futni, ha az összes munkalap ki van jelölve a munkafüzetben. Próbáljon meg csak egy lapot kiválasztani, majd futtassa.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hirtelen a 1004-es hibaüzenetet kapom. Hónapok óta használom a makrót, véletlenül meghibásodik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hirtelen nálam is megjelenik az 1004-es hiba. Talál valaki megoldást?
A weboldal moderátora ezt a megjegyzést minimalizálta
amikor aktiváltam ezt a VBA-t, hivatkozás nem működik. hogyan tudom őket működésre bírni? tnx :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm! Ez fantasztikus, még a VBA kódot is tudtam módosítani, hogy egyszerre le tudjam oldani az összes lap védelmét! :) Sub unprotect_all_sheets() top: pass = InputBox("jelszó?") repass = InputBox("Jelszó ellenőrzése") Ha nem (pass = repass) Akkor MsgBox "bukót csináltál" Ugrás a tetejére End If For i = 1 To Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Kilépés Sub hoppá: MsgBox "Azt hiszem, van néhány munkalapja, amelyek már védettek. Kérjük, távolítsa el az összes B4 munkalapot, amelyen ez a makró fut." Vége Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Hé, szükségem van egy kis segítségre, a fenti kód nagyon hasznos volt, de zárolja a rendezést (az automatikus szűrőt is), kérem, adjon meg kódot a probléma megoldásához, és azt is, hogy hova kerüljön be. Előre is köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Az Excel 2013 munkafüzetemben diagramlapok és munkalapok vannak. A fenti VBA kódolás a munkalapok védelmére szolgál, de nem a különálló diagramlapok védelmére. Hogyan védhetem jelszóval a munkafüzetemben található több diagramfül és több munkalap? Kösz!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, most ezt a kódot használtam, és nem fogadja el a jelszavamat, hogy visszakerüljön a táblázatomba!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan takarhatom el a jelszót VBA módszerrel? Nem találom ezt az információt a google vagy az F1 súgófájljain keresztül. Előre is köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönjük a csodálatos teljes eszközt, amellyel egyszerre megvédheti és feloldhatja az összes lapot. Kérem, segítsen nekem, hogy a munkafüzetemben lévő összes lap védelmét egyszerre fel tudom oldani, de ha lefuttatom az összes lap védelmét a VBA-kóddal, akkor csak az első 4 lapot védi, és csak az első XNUMX lap marad védve, vagy marad védelem nélkül. Kérem, segítsen a probléma megoldásában.
A weboldal moderátora ezt a megjegyzést minimalizálta
Megosztott munkafüzetben próbálom használni, de a Microsoft Visual Basic hibaüzenetet kapom: „Futtatási hiba '1004”: Alkalmazás által definiált vagy objektum által definiált hiba” Csak javaslatokat keresek a probléma megkerülésére. segítséget köszönnénk
A weboldal moderátora ezt a megjegyzést minimalizálta
Akkor fordul elő, ha a lap már le van zárva
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi