Private Sub
08.07.2004 15:42:42
Grabower
kriege einfach die Übergabeparameter für die Funktion
Worksheet_Change()nicht hin..
kann jemand helfen?
Sub test()
Call Worksheet_Change( "Sheet1" ."A3:A10")
End Sub
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