Ich habe eine Tabelle mit 900 Zeilen und 16 Spalten.
Wie kann ich mit einen VBA Code immer die darüber liegende Zeile sperren (z.B. A4 bis P4), wenn in A5 (dann in A6 usw) einen Wert eingegeben wird.
Für eine Lösung danke ich Euch.
Thierry
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
ActiveSheet.Unprotect
Target.Offset(-1, 0).Resize(1, 16).Locked = True
ActiveSheet.Protect
End If
End Sub
Gruß
Rudi