Gruppe
Ereignis
Bereich
Change
Thema
Nach Eingabe eines S keine weiteren Eingaben möglich
Problem
Bei Eingabe eines S in Zelle D4 sollen im Bereich D4:Z4 keine weiteren Eingaben möglich sein.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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