folgendes Problem:
ich habe eine Zeiterfassung in Excel gebaut.
Bei Ablauf eines bestimmten Datums, welches ich im jeweiligen Monat 'versteckt' geschrieben habe, läuft (für jedes Tabellenblatt) folgender Code ab:
Sub Worksheet_activate()
If Date > Range("A1") Then
Cells.Locked = True
ActiveSheet.Protect "Oktober"
MsgBox ("Eingabefrist abgelaufen!")
End If
End Sub
Bei Cells.Locked läuft Excel auf einen Laufzeitfehler.
Kann mir jemand sagen, was ich falsch mache.
Vielen lieben Dank schon im Voraus.
LG, Christina.