Wie kann man alle Arbeitsblätter automatisch schützen, wenn eine Excel-Arbeitsmappe geschlossen wird?

Normalerweise können Sie ein Arbeitsblatt oder die gesamte Arbeitsmappe manuell mit einem Passwort über das Feature „Arbeitsblatt schützen“ oder „Arbeitsmappe schützen“ in Excel schützen. Wenn Sie jedoch alle Arbeitsblätter beim Schließen der Arbeitsmappe automatisch mit einem Passwort schützen möchten, was können Sie tun? Dieser Artikel zeigt Ihnen eine VBA-Methode, um dies zu erreichen.

Alle Arbeitsblätter beim Schließen der Excel-Arbeitsmappe mit VBA-Code schützen

Alle Arbeitsblätter beim Schließen der Excel-Arbeitsmappe mit VBA-Code schützen

Um alle Arbeitsblätter beim Schließen einer Arbeitsmappe automatisch zu schützen, wenden Sie bitte den folgenden VBA-Code an.

1. Drücken Sie in der Arbeitsmappe, in der Sie alle Arbeitsblätter beim Schließen der Datei schützen möchten, die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications im linken Bereich auf ThisWorkbook und kopieren Sie dann den folgenden VBA-Code in das Codefenster. Siehe Screenshot:

VBA-Code: Alle Arbeitsblätter beim Schließen der Arbeitsmappe schützen

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

Tipps:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. Drücken Sie dann die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

Nach dem obigen Schritt werden alle Arbeitsblätter oder das angegebene Arbeitsblatt automatisch beim Schließen der Arbeitsmappe geschützt.

Hinweise:

Verwandte Artikel:

• Wie verwendet man eine Dropdown-Liste in einem geschützten Arbeitsblatt in Excel?
• Wie sperrt man bestimmte Zellen, ohne das gesamte Arbeitsblatt in Excel zu schützen?
• Wie blendet man Formeln aus, zeigt aber das Ergebnis an, ohne das Arbeitsblatt in Excel zu schützen?