Zellen automatisch sperren
20.07.2003 19:35:26
Franz W.
ich möchte, dass nach Eingabe in eine Zelle der Spalte I (=9) in dieser Zeile die Zellen von C bis I sperrt und dachte, das müsste mit folg. Code gehen, tut's aber nicht:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c%, r%
c = Target.Column
r = Target.Row
If Not Target.Column = 9 Then Exit Sub
If Target.Column = 9 Then
Worksheets("Daten").Unprotect
Range(Cells(c - 6, r), Cells(c, r)).Locked = True
Worksheets("Daten").Protect
End If
End Sub
Er tut einfach gar nix, ohne Fehlermeldung. Könnt Ihr mir bitte helfen?
Danke im Voraus
Grüße
Franz