Hallo liebe Helferlein.

Stehe auf dem Schlauch.

Habe eine Tabelle die hat für jedes Monat ein Tabellenblatt - also Januar - Februar - März- April - Mai usw.

Möchte jetzt eine Schleife über die Blätter laufen lassen und wenn z.b. das akt. Datum nach dem 17. des aktuellen Monats ist - also wir haben z.b. den 18 Februar dann soll es das n ä c h s t f o l g e n d e Monatsblatt also das Blatt mit dem Namen MÄRZ komplett sperren (mit dem Passwort)

Die Blätter Januar - Februar - April - Mai usw. soll es ignorieren.

Bitte um eure Adaption des ua Codes.

Danke


Sub SchutzUndSperren()

Dim aktuellesDatum As Date
Dim aktuellerMonat As Integer
Dim Durchlaufe_die_Monatsblaetter As Integer
Dim blattName As String
Dim passwort As String


' Setze das Passwort zum Schutz der Blätter
Pw = "egger06" ''''''####################ändern hier nur für probedatei#########

' Hole das aktuelle Datum und den aktuellen Monat

aktuellesDatum = Date '''####### aktuelles Datum

aktuellesDatum = Date + 15 '''#### gefaktes Datum


aktuellerMonat = Month(aktuellesDatum)

' Überprüfe jedes Monatsblatt
For Durchlaufe_die_Monatsblaetter = 1 To 12
' Bestimme den Namen des nächsten Monatsblatts
blattName = Format(DateSerial(Year(aktuellesDatum), Durchlaufe_die_Monatsblaetter, 1), "MMMM")

Worksheets(blattName).Activate


' Überprüfe, ob das aktuelle Datum nach dem 17. Tag des aktuellen Monats ist
If aktuellesDatum > DateSerial(Year(aktuellesDatum), aktuellerMonat, 17) Then
' Schütze die Zellen im nächsten Monatsblatt
Worksheets(blattName).Protect Password:=Pw
' Sperre das Blatt
Worksheets(blattName).Protect Contents:=True, UserInterfaceOnly:=True, Password:=Pw
End If
Next Durchlaufe_die_Monatsblaetter


End Sub