Excel VBA - Vorm Speichern beschriebende Zellen schützen

Dieses VBA Makro schützt beschriebende Zellen, wenn der Speichern Schalter geklickt wird:

 

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Zelle As Range
Application.ScreenUpdating = False
    With Sheets("Dein_Tabellenblatt")
       .Unprotect Password:="Dein_Passwort"
       .Cells.Locked = False
            For Each Zelle In .UsedRange
                If Zelle <> "" Then Zelle.Locked = True
            Next Zelle
       .Protect Password:="Dein_Passwort"
    End With
Application.ScreenUpdating = True
End Sub