ich möchte eine Zelle schützen (AB5) (schreibgeschützt) solange in einer anderen Zelle (AS5)kein Datum steht.
Kann mir jemand helfen?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If IsDate(Cells(5, 45).Value) Then
ActiveSheet.Unprotect
Cells(5, 28).Locked = False
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
Cells(5, 28).Locked = True
ActiveSheet.Protect
End If
End Sub