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
MsgBox "Hallo"
Else
ActiveSheet.Unprotect
Cells(1, 1).Locked = True
MsgBox "Hallo1"
End If
End Sub