Code erweitern / Monate abschliessen
20.12.2017 15:01:51
Pascal
Ich hoffe, jemand von Euch kann mir hier kurz weiterhelfen.
und zwar:
Ich habe eine Arbeitsmappe mit unzähligen Tabellenblätter. Die Tabellenblätter tragen die Monate "Januar 2017", "Februar 2017" usw.
Es gibt Tabellenblätter bis und mit "Dezember 2018"
Pro Tabellenblatt kann jeder Benutzer verschiedene Daten eintragen.
Nun hab ich vor Kurzem hier im Forum gefragt, ob es eine Möglichkeit gibt, diese Arbeitsmappe mittels einem Makro zu versehen, dass mir beim Öffnen der Mappe folgendes macht:
Alle Tabellenblätter des Vormonats sollen mittels einem Password versehen- und komplett für jegliche Änderungen geschützt werden.
Ich habe da im Forum folgenden Super Code erhalten, der auch bestens funktioniert:
'Code muss in DieseArbeitsmappe
Private Sub Workbook_Open()
Dim TB, PW As String
Dim Monatsende As Date
'Blattname in der Form: "Dezember 2017"
PW = "ABC"
For Each TB In ThisWorkbook.Sheets
If IsDate("10." & TB.Name) Then 'Ist Blattname ein Monat
Monatsende = Application.EoMonth(DateValue("01." & TB.Name), 0)
If Monatsende Nun müsste aber leider dieser Code so angepasst werden, dass er mir immer am 10. des laufenden Monats alle Tabellenblätter inkl. der laufende Monat und der Folgemonat abschliesst.
als Beispiel:
am 10. Dezember 2017 müsste es also alle Tabellenblätter bis und mit Januar 2018 abschliessen.
kann ich den obigen Code entsprechend so einfach anpassen ?
für Eure Hilfe HERZLICHEN DANK !