Excel VBA - Vorm Speichern beschriebende Zellen schützen

Details

Kategorie: Excel Code automatische Abläufe

Veröffentlicht: Freitag, 27. Dezember 2019 11:07

Geschrieben von Marcus Rose

Zugriffe: 2421

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

• Weiter