Gruppe
Ereignis
Problem
Nach dem Speichern sollen Zellen mit Inhalt nicht mehr geändert werden können.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeSave( _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rng As Range
ActiveSheet.Unprotect
For Each rng In ActiveSheet.UsedRange.Cells
If Not IsEmpty(rng) Then rng.Locked = True
Next rng
ActiveSheet.Protect
End Sub