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: 1583
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