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

Uimitor! Utilizarea unor file eficiente în Excel, cum ar fi Chrome, Firefox și Safari!

Economisiți 50% din timp și reduceți mii de clicuri de mouse pentru dvs. în fiecare zi!

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:

Sfat: 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.

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-2019 și 365. Suportă toate limbile. Implementare ușoară în întreprindere sau organizație. Funcții complete de încercare gratuită de 30 de zile. Garanție de restituire a banilor de 60 de zile.

Citeşte mai mult ... Descărcare gratuită... Cumpărare... 

---

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 în fiecare zi!

Citeşte mai mult ... Descărcare gratuită... Cumpărare...