Gruppe
Ereignis
Problem
Bei Eingabe eines S in Zelle D4 sollen im Bereich D4:Z4 keine weiteren Eingaben möglich sein.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$4" Then Exit Sub
ActiveSheet.Unprotect
If Target.Value = "S" Then
Range("D4:Z4").Locked = True
End If
ActiveSheet.Protect
End Sub