Preskoči na glavno vsebino

Kako zaščititi vse delovne zvezke v mapi hkrati v Excelu?

Avtor: Sonce Zadnja sprememba: 2016-08-22

V Excelu lahko delovni zvezek zaščitite, tako da drugim uporabnikom preprečite, da bi ga urejali, vendar ste kdaj slišali za zaščito več delovnih zvezkov hkrati? Tukaj predstavljam nekaj trikov za zaščito vseh delovnih zvezkov v mapi in več listov v delovnem zvezku v Excelu.

Zaščitite delovne zvezke v mapi hkrati z VBA

Zaščitite več listov hkrati s programom Kutools za Excel dobra ideja3

puščica modri desni mehurček Zaščitite delovne zvezke v mapi hkrati z VBA

Če želite zaščititi delovne zvezke v določeni mapi, lahko za reševanje uporabite kodo makra.

1. Omogočite nov delovni zvezek in pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacijons in kliknite Vstavi > module in spodnjo kodo prilepite v Moduli skripta.

VBA: Zaščitite delovne zvezke v mapi.

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

 

doc zaščiti vse delovne zvezke mapo 1

2. Pritisnite F5 tipko in a Izberite mapo odpre se okno, da izberete mapo, da zaščitite vse njene delovne liste.
doc zaščiti vse delovne zvezke mapo 2

3. klik OK in odpre se pogovorno okno za vnos gesla za zaščito delovnih zvezkov.
doc zaščiti vse delovne zvezke mapo 3

4. klik OK, se odpre pogovorno okno, ki vas opomni, da so bili vsi delovni zvezki v izbrani mapi uspešno zaščiteni z enim geslom.
doc zaščiti vse delovne zvezke mapo 4

Ko odprete delovne zvezke, ki ste jih zaščitili z zgornjo kodo, se prikaže pogovorno okno za vnos gesla. Oglejte si posnetek zaslona:
doc zaščiti vse delovne zvezke mapo 5

Nasvet: Ta koda deluje za različico programa Excel 2007 ali novejšo, če jo želite uporabiti za zaščito nižje različice, jo lahko spremenite xFile = "* .xls" do xFile = "* .xlsx" v kodi.


puščica modri desni mehurček Zaščitite več listov hkrati s programom Kutools za Excel

Pravzaprav bomo pri vsakodnevnem delu pogosteje zaščitili več listov v delovnem zvezku. Toda v Excelu morate liste z zaščito zaščititi enega z drugim z vgrajeno funkcijo. Vendar obstaja močno orodje - Kutools za Excel, njeno Zaščitite delovni list pripomoček vam lahko pomaga zaščititi vse liste ali izbrane liste delovnega zvezka hkrati.

Kutools za Excel, z več kot 120 priročne funkcije Excel, izboljšajo vašo delovno učinkovitost in prihranijo vaš delovni čas.

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Omogočite delovni zvezek, ki ga želite zaščititi, in kliknite Podjetje > Zaščitite delovni list. Oglejte si posnetek zaslona:
doc zaščiti vse delovne zvezke mapo 6

2. V Ljubljani Zaščitite delovni list v pogovornem oknu lahko na seznamu preverite liste, ki jih želite zaščititi. Oglejte si posnetek zaslona:
doc zaščiti vse delovne zvezke mapo 7

3. klik Okin odpre se drugo pogovorno okno za vnos in vpis gesla, glejte sliko zaslona:
doc zaščiti vse delovne zvezke mapo 8

4. klik Okin odpre se pogovorno okno, ki vas opomni na uspešno zaščito delovnih listov.
doc zaščiti vse delovne zvezke mapo 9

Za zaščito teh listov morate samo klikniti Podjetje > Odstranite zaščito delovnega lista za vnos gesla za zaščito.
doc zaščiti vse delovne zvezke mapo 10

prenos dokumenta 1

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


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!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did all the steps and there was dialogue box saying it's successful but when I open the files, they are opening up without any password.
This comment was minimized by the moderator on the site
Hello, I have tried it here and it works. Please check whether the file extension in your code is correct?
This comment was minimized by the moderator on the site
am using a mac, and when i click on the F5 key it does not work for me, please how can I resolve it?
This comment was minimized by the moderator on the site
Hi, you can try option - F8 keys. But I only tested this VBA in Microsoft system, I do not know if it work in Mac.
This comment was minimized by the moderator on the site
Brilliant. Saves me nearly an hour every month. Thank you.
This comment was minimized by the moderator on the site
can you do the same code but for unprotecting? with option to browse for the folder
This comment was minimized by the moderator on the site
I'm getting a syntax error for the following: <span style="background-color...
This comment was minimized by the moderator on the site
Did you fix this ? How?
This comment was minimized by the moderator on the site
only remove them
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations