Zellenbereiche bei Ereignismakros
09.07.2004 10:48:28
SvenB
habe folgendes Ereignismakro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If IsDate(Cells(1, 2).Value) Then
ActiveSheet.Unprotect
Cells(1, 1).Locked = False
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
Cells(1, 1).Locked = True
ActiveSheet.Protect
End If
End Sub
ich möchte nun, dass nicht nur in der Zeile 1 diese "Verriegelung"
sondern redundant Zeile 2, Zeile 3 usw.
d.h. wenn in B5 kein Datum steht, soll A5 gesperrt sein.
kann mir jemand helfen?