Ich habe ein Kalender erstellt, wo sich jeder Monat auf einem Tabellenblatt befindet.
Mit dem unten genannten Code möchte ich erreichen das z.B Im Zeitraum vom 10. - 25.01 der Blattschutz für Februar aufgehoben wird. Also immer der nächste Monat. Leider erkennt Excel den Code nur, wenn ich das Format zu "DD" mache und die "Monate" lösche. Sobalt ich es auf den Monat "MM" erweitere funktioniert er nicht mehr.
Ich hoffe Ihr könnt mir helfen und Vielen Dank schon einmal.
Der Code:
Option Explicit
Const TagAus = 10.01
Const TagEin = 25.01
Const Passw = "abc"
Private Sub Worksheet_Activate()
Dim Tag
Tag = Format(Now, "DD.MM")
If Tag > TagEin Then
ActiveSheet.Protect Passw, DrawingObjects:=True, contents:=True, Scenarios:=True
ElseIf Tag