Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nach Eingabe eines S keine weiteren Eingaben möglich

Gruppe

Change

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