Ereignismakro
08.07.2004 20:55:17
Grabower
wie binde ich folgendes Ereignismakro ein?
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
Kann mir jemand helfen?