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

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
dno pisarniške mize
Komentarji (21)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Super – kako jih torej vse naenkrat odstraniti? Sem amater, zato potrebujem več informacij.
Ta komentar je moderator na spletnem mestu minimiziral
[quote]Super – kako jih torej vse naenkrat prekiniti z zaščito? Sem amater, zato potrebujem več informacij.Avtor: Kristin Dzugan[/quote] :-) Z lahkoto jih odstranite zaščito kot http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Ta komentar je moderator na spletnem mestu minimiziral
Sub unprotect_all_sheets() zgoraj: pass = InputBox("password?") repass = InputBox("Preveri geslo") Če ne (pass = repass) Potem MsgBox "naredili ste boo boo" Pojdi na vrh Konec Če Za i = 1 Na delovne liste .Count Next For Every s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Mislim, da imate nekaj listov, ki so že zaščiteni. Odstranite zaščito vseh listov B4, ki izvajajo ta makro." Končni sub
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala :-)
Ta komentar je moderator na spletnem mestu minimiziral
Kot je rekla Kristin, kako jih odstraniti vse naenkrat?
Ta komentar je moderator na spletnem mestu minimiziral
Torej, kako odstranim zaščito brez kutools?
Ta komentar je moderator na spletnem mestu minimiziral
[quote]Torej, kako odstranim zaščito brez kutools?Avtor cz[/quote] Delovni list lahko odstranite brez Kutools for Excel. Samo z desno tipko miške kliknite zavihek lista, ki ga želite odstraniti, in kliknite ukaz Odstrani zaščito lista, nato pa vnesite svoje geslo. :-)
Ta komentar je moderator na spletnem mestu minimiziral
ko vnesem kodo, se pojavi "napaka v času izvajanja 1004?? z rumenim poudarkom naslednjega ... s.Protect Password:=pass
Ta komentar je moderator na spletnem mestu minimiziral
Nenadoma imam tudi napako 1004. Makro uporabljam že več mesecev, zdaj pa se ne zažene.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, tudi jaz sem imel to težavo. Izkazalo se je, da se ne more zagnati, če imate v delovnem zvezku izbrane vse liste. Poskusite izbrati samo en list in nato zagnati.
Ta komentar je moderator na spletnem mestu minimiziral
Nenadoma imam težavo z napako 1004. Makro uporabljam že mesece, zdaj naključno ne uspe.
Ta komentar je moderator na spletnem mestu minimiziral
Nenadoma imam tudi napako 1004. Ali kdo najde rešitev?
Ta komentar je moderator na spletnem mestu minimiziral
ko sem aktiviral ta VBA, hiperpovezava ne deluje. kako jih lahko pripravim do dela? tnx :)
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam! To je super, lahko sem celo spremenil kodo VBA, tako da sem lahko odstranil zaščito vseh listov hkrati! :) Sub unprotect_all_sheets() zgoraj: pass = InputBox("password?") repass = InputBox("Preveri geslo") Če ne (pass = repass) Potem MsgBox "naredili ste boo boo" Pojdi na vrh Konec Če Za i = 1 To Worksheets.Count Next For Every s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Mislim, da imate nekaj listov, ki so že zaščiteni. Prosim, odstranite zaščito vseh listov B4, ki izvajajo ta makro." Končni sub
Ta komentar je moderator na spletnem mestu minimiziral
Hej, potrebujem pomoč, zgornja koda je bila zelo koristna, vendar zaklene razvrščanje (tudi samodejni filter). Prosimo, da navedete kodo za rešitev te težave in tudi kje bi jo vstavili. Hvala v naprej.
Ta komentar je moderator na spletnem mestu minimiziral
V delovnem zvezku Excel 2013 imam zavihke z grafikoni in delovne liste. Zgornje kodiranje VBA deluje za zaščito delovnih listov, ne pa tudi ločenih zavihkov grafikona. Kako zaščitim z geslom več zavihkov grafikonov in več delovnih listov v svojem delovnem zvezku? Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, uporabil sem to kodo, zdaj ne bom sprejel mojega gesla, da bi se vrnil v svojo preglednico !!
Ta komentar je moderator na spletnem mestu minimiziral
Kako prikrijem geslo z metodo VBA? Ne najdem teh informacij prek Googlovih datotek ali datotek pomoči F1. Hvala vnaprej!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za čudovito popolno orodje za zaščito in odstranitev zaščite vseh listov hkrati. Prosim, vodite me. Lahko odstranim zaščito vseh listov v svojem delovnem zvezku naenkrat, vendar ko zaženem zaščito vseh listov VBA Code, so samo prvi 4 listi zaščiteni in ostali ali ostali nezaščiteni. Prosim pomagajte mi rešiti zadevo.
Ta komentar je moderator na spletnem mestu minimiziral
To poskušam uporabiti v delovnem zvezku v skupni rabi, vendar dobim napako Microsoft Visual Basic "Napaka med izvajanjem '1004": napaka, definirana v aplikaciji ali objektno definirana napaka" Samo iščem predloge, kako to zaobiti. pomoč bi bila cenjena
Ta komentar je moderator na spletnem mestu minimiziral
Pojavi se, ko je list že zaklenjen
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL