Note: The other languages of the website are Google-translated. Back to English
Logga in  \/ 
x
or
x
Registrera  \/ 
x

or

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) Ange ditt lösenord i koden i raden xPsw = “”.
2) Om du bara vill automatiskt skydda ett angivet kalkylblad när du stänger arbetsboken kan VBA-koden nedan 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 ovanstående steg skyddas alla kalkylblad eller specificerat kalkylblad automatiskt när arbetsboken stängs.

Anmärkningar:

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

Relaterade artiklar:


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2019 och 365. Stöder alla språk. Enkel distribution i ditt företag eller organisation. Fullständiga funktioner 30-dagars gratis provperiod. 60-dagars pengarna tillbaka-garanti.
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 åt dig varje dag!
officetab botten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.