Vielen Dank
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zelle As Range
Dim ws As Range
Set ws = Range("A1:E100")
For Each zelle In ws
If zelle <> "" Then
ActiveSheet.Unprotect
zelle.Locked = True
ActiveSheet.Protect
End If
Next zelle
End Sub