kann mir bei dem Code (er ist wohl aus diesem Forum) jemand helfen. Ich möchte die Ausführung auf die Tabellenblätter Januar-Dezember und die Bereiche (in jedem Blatt gleich) A1:I40 erweitern.
Der Code sperrt Zellen (Speicherung vorausgesetzt) , wenn sie Werte enthalten.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim zelle As Range
Sheets("September").Unprotect
For Each zelle In Sheets("September").UsedRange
If zelle.Value "" Then
zelle.Locked = True
Else
zelle.Locked = False
End If
Next
Sheets("September").Protect
End Sub
Vielen Dank
Frank