Hoppa till huvudinnehåll

Hur skyddar jag alla kalkylblad automatiskt när Excel-arbetsboken stängs?

Normalt kan du manuellt skydda ett kalkylblad eller hela arbetsboken med lösenord med funktionen Protect Sheet eller Protect Workbook i Excel. Men om du vill skydda alla kalkylblad automatiskt med lösenord när arbetsboken stängs, vad kan du göra? Den här artikeln visar en VBA-metod för att uppnå det.

Skydda alla kalkylblad när du stänger Excel-arbetsboken med VBA-kod


Skydda alla kalkylblad när du stänger Excel-arbetsboken med VBA-kod

För att automatiskt skydda alla kalkylblad när du stänger arbetsboken, använd följande VBA-kod.

1. I arbetsboken vill du skydda alla kalkylblad när du stänger filen, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka på Denna arbetsbok i den vänstra rutan och kopiera sedan under VBA-koden till kodfönstret. Se skärmdump:

VBA-kod: Skydda alla kalkylblad när du stänger arbetsboken

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = ""
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

tips:

1) I koden, ange ditt lösenord på raden xPsw = “”.
2) Om du bara vill automatiskt skydda ett specificerat kalkylblad när du stänger arbetsboken, kan nedanstående VBA-kod hjälpa dig.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. Tryck sedan på andra + Q för att stänga Microsoft Visual Basic for Applications-fönstret.

Efter steget ovan kommer alla kalkylblad eller specificerade kalkylblad att skyddas automatiskt när du stänger arbetsboken.

Anmärkningar:

1. Du måste spara arbetsboken som Excel Macro-Enabled Workbook-filformat.
2. Gå till det specifika arbetsbladet, klicka översyn > Unprotect Sheet. Och skriv sedan in lösenordet du angav i VBA-koden för att avskydda detta kalkylblad.

Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
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...

Beskrivning


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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations