Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.09.2025 15:31:23
Listbox durchsuchen die über list array befüllt wurde
28.09.2025 15:25:50
Excel Zufall Dienstplan
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1956to1960
1956to1960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle abgelaufenen Monate sperren

Forumthread: Alle abgelaufenen Monate sperren

Alle abgelaufenen Monate sperren
01.12.2023 13:46:58
STeve
Hallo liebe Profis.. Wieder mal eine Bitte.

Habe 12 Tabellenblätter mit den Monatsnamen "JANUAR" "FEBRUAR" usw.............

Jetzt will ich beim Öffnen der Datei jedes bereits a b g e l a u f e n e Monatsblatt mit Passwort sperren.

Beispiel: Datei wird am 2.7. geöffnet dann sollten die Blätter Januar bis Juni gesperrt sein.

Bräuchte also eine Rückwärtsschleife!!

Danke für eure Hilfe
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle abgelaufenen Monate sperren
01.12.2023 14:06:31
daniel
Hi
warum rückwärtsschleife?
wenn die 12 Blätter korrekt angeordnet sind, dann: 

for x = 1 to Month(date) - 1

    sheets(x).protect "Passwort"

next


Gruß Daniel
AW: Alle abgelaufenen Monate sperren
01.12.2023 14:11:54
STeve
Hallo Daniel
Danke für die schnelle Hilfe.......aber leider nicht korrekt angeordnet darum muss ich sie mit dem Monatsnamen ansprechen.
Kannst mir da helfen.
Danke
Anzeige
AW: Alle abgelaufenen Monate sperren
01.12.2023 14:27:31
daniel
dann mit:

sheets(format(Dateserial(2000, x, 1), "MMMM"))

aber du musst deine Blätter dann so benennen, wie diese Funktion die Monatsnamen ausgibt.
AW: Alle abgelaufenen Monate sperren
01.12.2023 15:07:18
STeve
Danke für die schnelle Hilfe - es läuft
lg STeve
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige