Hur skyddar man automatiskt alla kalkylblad när man stänger en Excel-arbetsbok?

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 en arbetsbok, 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:

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:

Relaterade artiklar:

• Hur använder jag rullgardinsmenyn i ett skyddat kalkylblad i Excel?
• Hur låser man angivna celler utan att skydda hela kalkylbladet i Excel?
• Hur döljer jag formeln men visar resultatet utan att skydda kalkylbladet i Excel?