Cum să protejați toate registrele de lucru dintr-un folder simultan în Excel?
În Excel, puteți proteja un registru de lucru pentru a împiedica alți utilizatori să îl editeze, dar v-ați imaginat vreodată să protejați mai multe registre de lucru simultan? Aici vă prezint câteva trucuri privind protejarea tuturor registrelor de lucru dintr-un folder și a mai multor coli dintr-un registru de lucru în Excel.
Protejați registrele de lucru dintr-un folder simultan cu VBA
Protejați mai multe foi simultan cu Kutools pentru Excel
- Reutilizați orice: Adăugați cele mai utilizate sau complexe formule, diagrame și orice altceva la preferatele dvs. și reutilizați-le rapid în viitor.
- Peste 20 de caracteristici text: Extrageți numărul din șirul de text; Extrageți sau eliminați o parte din texte; Conversia numerelor și valutelor în cuvinte în limba engleză.
- Instrumente de îmbinare: Mai multe cărți de lucru și foi într-unul; Combinați mai multe celule / rânduri / coloane fără a pierde date; Combinați rândurile duplicate și suma.
- Instrumente divizate: Împărțiți datele în mai multe foi bazate pe valoare; Un registru de lucru pentru mai multe fișiere Excel, PDF sau CSV; O coloană la mai multe coloane.
- Lipiți săriți Rânduri ascunse / filtrate; Număr și sumă de Culoarea fundalului; Trimiteți e-mailuri personalizate către mai mulți destinatari în bloc.
- Super Filtru: Creați scheme avansate de filtrare și aplicați oricăror foi; Sortează pe săptămână, zi, frecvență și multe altele; Filtru prin îndrăznețe, formule, comentarii ...
- Peste 300 de caracteristici puternice; Funcționează cu Office 2007-2021 și 365; Suporta toate limbile; Implementare ușoară în întreprinderea sau organizația dvs.
Protejați registrele de lucru dintr-un folder simultan cu VBA
Pentru a proteja registrele de lucru într-un anumit folder, puteți aplica un cod macro pentru rezolvare.
1. Activați un registru de lucru nou și apăsați Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicațiins fereastră și faceți clic pe Insera > module și lipiți codul de mai jos în Module script-ul.
VBA: Protejați registrele de lucru într-un folder.
Sub ProtectAll()
Dim xWorkBooks As Workbook
Dim xExitFile As String
Dim xPassWord As Variant
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then
Exit Sub
Else
xStrPath = xStrPath + "\"
End If
xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
If (xPassWord = False) Or (xPassWord = "") Then
MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
Exit Sub
End If
xFile = "*.xls"
xExitFile = Dir(xStrPath & xFile)
On Error Resume Next
Application.ScreenUpdating = False
Do While xExitFile <> ""
Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
Application.DisplayAlerts = False
xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
Application.DisplayAlerts = True
Workbooks(xExitFile).Close False
Set xWorkBooks = Nothing
xExitFile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub
2. presa F5 cheie și a Selectați un folder fereastra apare pentru a selecta un folder pentru a proteja toate foile de lucru.
3. clic OK și apare un dialog pentru introducerea parolei pentru protejarea registrelor de lucru.
4. clic OK, apare un dialog pentru a vă reaminti că toate registrele de lucru din folderul selectat au fost protejate cu succes cu o singură parolă.
Când deschideți registrele de lucru pe care le-ați protejat de codul de mai sus, apare un dialog pentru introducerea parolei. Vedeți captura de ecran:
varful: Acest cod funcționează pentru versiunea Excel 2007 sau mai recentă, dacă doriți să o aplicați pentru a proteja versiunea inferioară, o puteți schimba xFile = "* .xls" la xFile = "* .xlsx" în cod.
Protejați mai multe foi simultan cu Kutools pentru Excel
De fapt, va fi mai frecvent să protejăm mai multe foi într-un registru de lucru în activitatea noastră zilnică. Dar în Excel, trebuie să protejați foile una câte una cu funcția sa încorporată. Cu toate acestea, există un instrument puternic - Kutools pentru Excel, ict Protejați foaia de lucru utilitarul vă poate ajuta să protejați simultan toate foile sau foile selectate ale registrului de lucru.
Kutools pentru Excel, cu mai mult de 120 funcții Excel la îndemână, vă îmbunătățesc eficiența de lucru și economisiți timpul de lucru. | ||
După instalare gratuită Kutools pentru Excel, faceți următoarele:
1. Activați registrul de lucru pe care doriți să îl protejați foile și faceți clic pe Afacere > Protejați foaia de lucru. Vedeți captura de ecran:
2. În Protejați foaia de lucru , puteți verifica din listă foile pe care doriți să le protejați, după cum aveți nevoie. Vedeți captura de ecran:
3. clic Okși apare un alt dialog pentru a introduce și a tasta din nou parola, consultați captura de ecran:
4. clic Okși apare un dialog pentru a vă reaminti protejarea cu succes a foilor de lucru.
Pentru neprotejarea acestor foi, trebuie doar să faceți clic Afacere > Desprotejați foaia de lucru pentru a introduce parola pentru neprotejare.
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 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!








