Hoppa till huvudinnehåll

Hur skyddar jag alla arbetsböcker i en mapp samtidigt i Excel?

I Excel kan du skydda en arbetsbok för att förhindra att andra användare redigerar den, men har du någonsin avbildat för att skydda flera arbetsböcker samtidigt? Här introducerar jag några knep för att skydda alla arbetsböcker i en mapp och flera ark i en arbetsbok i Excel.

Skydda arbetsböcker i en mapp samtidigt med VBA

Skydda flera ark samtidigt med Kutools för Excel bra idé3

pil blå höger bubbla Skydda arbetsböcker i en mapp samtidigt med VBA

För att skydda arbetsböcker i en viss mapp kan du använda en makrokod för att lösa.

1. Aktivera en ny arbetsbok och tryck på Alt + F11 nycklar för att öppna Microsoft Visual Basic för Applications-fönstret och klicka Insert > module och klistra in under koden i Modulerna skript.

VBA: Skydda arbetsböcker i en mapp.

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 skydda alla arbetsböcker en mapp 1

2. Tryck F5 nyckel och en Välj en mapp fönstret dyker upp för att du ska välja en mapp för att skydda alla kalkylblad.
doc skydda alla arbetsböcker en mapp 2

3. klick OK och en dialog dyker upp för att ange lösenord för att skydda arbetsböcker.
doc skydda alla arbetsböcker en mapp 3

4. klick OK, en dialogruta dyker upp för att påminna dig om att alla arbetsböcker i den valda mappen har skyddats med ett lösenord.
doc skydda alla arbetsböcker en mapp 4

När du öppnar arbetsböcker som du skyddas av ovanstående kod dyker upp en dialogruta för att ange lösenord. Se skärmdump:
doc skydda alla arbetsböcker en mapp 5

Tips: Den här koden fungerar för 2007 eller högre Excel-version. Om du vill använda den för att skydda lägre version kan du ändra xFile = "* .xls" till xFile = "* .xlsx" i koden.


pil blå höger bubbla Skydda flera ark samtidigt med Kutools för Excel

Egentligen kommer det att bli vanligare att skydda flera ark i en arbetsbok i vårt dagliga arbete. Men i Excel måste du skydda ark en efter en med sin inbyggda funktion. Det finns dock ett kraftfullt verktyg - Kutools för Excel, dess Skydda kalkylbladet verktyget kan hjälpa dig att skydda alla ark eller valda ark i arbetsboken samtidigt.

Kutools för Excel, med mer än 120 praktiska Excel-funktioner, förbättrar din arbetseffektivitet och sparar din arbetstid.

Efter gratis installation Kutools för Excel, gör så här:

1. Aktivera arbetsboken som du vill skydda dess ark och klicka på Företag > Skydda kalkylbladet. Se skärmdump:
doc skydda alla arbetsböcker en mapp 6

2. I Skydda kalkylbladet i dialogrutan kan du kontrollera listorna du vill skydda efter behov. Se skärmdump:
doc skydda alla arbetsböcker en mapp 7

3. klick Ok, och en annan dialog dyker upp för att du ska ange och skriva in lösenordet igen, se skärmdump:
doc skydda alla arbetsböcker en mapp 8

4. klick Ok, och en dialogruta dyker upp för att påminna dig om att du lyckats skydda kalkylblad.
doc skydda alla arbetsböcker en mapp 9

För att skydda dessa ark behöver du bara klicka Företag > Avskydda kalkylbladet för att ange lösenord för oskydd.
doc skydda alla arbetsböcker en mapp 10

doc nedladdning 1

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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
This comment was minimized by the moderator on the site
workbook protect ...great program.... very helpful
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations