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

Cum să protejați mai multe foi de lucru simultan în Excel?

Presupunând că aveți un registru de lucru care conține mai multe foi de lucru, iar acum trebuie să protejați toate foile de lucru sau unele foi de lucru specifice, în mod normal în Excel, puteți proteja foaia doar una câte una cu funcția Protejați foaia, dar această metodă este plictisitoare și consumatoare de timp dacă există numeroase coli trebuie protejate. Cum protejați mai multe foi simultan în Excel rapid și ușor?

Protejați toate foile simultan cu codul VBA

Protejați mai multe foi simultan cu Kutools pentru Excel

Protejați mai multe foi simultan cu kutools pentru Excel


săgeată albastru dreapta balon Protejați toate foile simultan cu codul VBA

Cu următorul cod VBA, puteți proteja toate foile din registrul de lucru activ simultan cu aceeași parolă, procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: Protejați toate foile de lucru dintr-un registru de lucru simultan:

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. Apoi apăsați F5 pentru a rula codul și introduceți parola pentru foile protejate în caseta de prompt, consultați captura de ecran:

doc-protect-multiple-sheets1-1

4. Clic OK, apoi introduceți parola din nou pentru a confirma parola.

doc-protect-multiple-sheets2-2

5. Apoi apasa OKși toate foile au fost protejate cu aceeași parolă.


săgeată albastru dreapta balon Protejați mai multe foi simultan cu Kutools pentru Excel

Uneori, nu doriți să protejați toate foile din registrul dvs. de lucru și doriți doar să protejați anumite foi specifice, în această situație, codul de mai sus nu va funcționa. Dar cu Kutools pentru Excel'S Protejați foaia de lucru utilitar, puteți proteja rapid și ușor atât foile, cât și foile specifice.

Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 60 de zile

După instalare Kutools pentru Excel, vă rugăm să efectuați următorii pași:

1. Clic Kutools Plus > Protejați foaia de lucru, vezi captura de ecran:

2. În Protejați foaia de lucru caseta de dialog, selectați foile pe care doriți să le protejați. (În mod implicit, toate foile de lucru din registrul de lucru curent sunt bifate.) Vedeți captura de ecran:

doc-protect-multiple-sheets4-4

3. și faceți clic OK, apoi tastați și confirmați parola în caseta de dialog Protejați foaia de lucru. Vedeți captura de ecran:

doc-protect-multiple-sheets5-5

4. Apoi apasa OK, foile de lucru selectate au fost protejate.

Faceți clic pe Protejați foaia de lucru pentru a afla mai multe despre această caracteristică.


săgeată albastru dreapta balon Protejați mai multe foi simultan cu kutools pentru Excel

Cum ați putea să protejați mai multe foi de lucru protejate într-un registru de lucru în același timp? Desigur, Kutools pentru Excel oferă, de asemenea, Desprotejați foaia de lucru utilitate pentru a le proteja deodată.

Vă rugăm să efectuați următorii pași:

1. Deschideți registrul de lucru care conține foile de lucru protejate.

2. Apoi apasa Kutools Plus > Desprotejați foaia de lucru, vezi captura de ecran:

3. În Desprotejați foaia de lucru caseta de dialog, foile protejate sunt listate în caseta de listă, apoi faceți clic pe Ok buton, vezi captura de ecran:

doc-protect-multiple-sheets7-7

4. Și apoi a Desprotejați foaia de lucru caseta de dialog apare pentru a vă reaminti să introduceți parola pe care ați creat-o pentru a proteja foile de lucru, consultați captura de ecran:

doc-protect-multiple-sheets8-8

5. După ce tastați parola, faceți clic pe Ok, toate foile de lucru verificate din caseta de listă au fost neprotejate.

Notă: Fișele de lucru trebuie să aibă aceeași parolă.

Pentru a afla mai multe despre această caracteristică Foaie de lucru Unprotect.

Descărcați și proba gratuită Kutools pentru Excel acum!


săgeată albastru dreapta balon Demo: Protejați sau dezactivați toate foile de lucru simultan cu Kutools pentru Excel

Kutools pentru Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. Descărcați și proba gratuită acum!

Articol asociat:

Cum să protejați mai multe foi de lucru simultan în Excel?


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (21)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Grozav - deci cum să le deprotejez pe toate odată? Sunt amator, așa că am nevoie de mai multe informații.
Acest comentariu a fost redus la minimum de moderatorul de pe site
[quote]Genial, deci cum să le deprotejați pe toate simultan? Sunt amator, așa că am nevoie de mai multe informații.De Kristin Dzugan[/quote] :-) Le puteți deproteja cu ușurință ca http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sub unprotect_all_sheets() top: pass = InputBox("parolă?") repass = InputBox("Verify Password") If Not (pass = repass) Then MsgBox "ai făcut un 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 "Cred că aveți unele foi care sunt deja protejate. Vă rugăm să deprotejați toate foile B4 care rulează această macrocomandă." End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc foarte mult :-)
Acest comentariu a fost redus la minimum de moderatorul de pe site
După cum a spus Kristin, cum le deprotejezi pe toate deodată?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Deci, cum deprotejez fără kutools?
Acest comentariu a fost redus la minimum de moderatorul de pe site
[quote]Deci, cum deprotejez fără kutools?Prin cz[/quote] Puteți deproteja foaia de lucru fără Kutools pentru Excel. Trebuie doar să faceți clic dreapta pe fila foaie pe care doriți să o deprotejați și să faceți clic pe comanda Unprotect Sheet, apoi introduceți parola. :-)
Acest comentariu a fost redus la minimum de moderatorul de pe site
când introduc codul apare cu „eroare de rulare 1004?? evidențiind următoarele în galben... s.Protect Password:=pass
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am brusc și eu eroarea 1004. Folosesc macro-ul de luni de zile, dar acum nu mai rulează.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut, am avut si eu aceasta problema. Se pare că nu poate rula dacă aveți toate foile selectate în registrul de lucru. Încercați să selectați o singură foaie și apoi să rulați.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am brusc problema cu eroarea 1004. Folosesc macro-ul de luni de zile, eșuează aleatoriu.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am brusc și eroarea 1004. Găsește cineva o soluție?
Acest comentariu a fost redus la minimum de moderatorul de pe site
când am activat acest VBA, hyperlink nu merge. cum pot sa le fac sa functioneze? tnx :)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc! Este minunat, am putut chiar să modific codul VBA, astfel încât să pot deproteja toate foile deodată! :) Sub unprotect_all_sheets() top: pass = InputBox("parolă?") 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 "Cred că aveți unele foi care sunt deja protejate. Vă rugăm să deprotejați toate foile B4 care rulează această macrocomandă." End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hei, am nevoie de ajutor, codul de mai sus a fost foarte util, dar blochează sortarea (de asemenea, filtrul automat) vă rugăm să furnizați cod pentru a rezolva problema și, de asemenea, unde ar fi inserat. Vă mulțumesc anticipat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am tab-uri și foi de lucru în registrul meu de lucru Excel 2013. Codarea VBA de mai sus funcționează pentru protejarea foilor de lucru, dar nu și a filelor de diagrame separate. Cum protejez cu parolă mai multe file de diagramă și mai multe foi de lucru din registrul meu de lucru? Mulțumiri!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, am folosit acest cod acum, nu accept parola mea pentru a reveni în foaia de calcul !!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum maschez parola folosind metoda VBA? Nu pot găsi aceste informații prin fișierele de ajutor Google sau F1. Mulțumesc anticipat!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumim pentru instrumentul complet minunat de a proteja și dezproteja toate foile în același timp. Vă rog să mă ghidez. Pot să deprotejez toate foile din registrul meu de lucru la un moment dat, dar când rulez protejează toate foile Codul VBA, atunci numai primele 4 foi sunt protejate și rămân sau lăsate neprotejate. Vă rog să mă ajutați să rezolv problema.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Încerc să folosesc acest lucru într-un registru de lucru partajat, dar primesc o eroare Microsoft Visual Basic „Eroare de rulare „1004”: eroare definită de aplicație sau definită de obiect”. Caut doar sugestii despre cum să o rezolv. ajutor ar fi apreciat
Acest comentariu a fost redus la minimum de moderatorul de pe site
Apare atunci când foaia este deja blocată
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL