Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nicht aktive Blätter sperren/schützen

Forumthread: Nicht aktive Blätter sperren/schützen

Nicht aktive Blätter sperren/schützen
16.03.2022 12:55:59
Marcel
Hey,
https://www.herber.de/forum/archiv/1872to1876/1874279_Oeffnen_ExcelSheet_aktueller_Wochentag.html#1874337
Kann mir jemand sagen wie ich in diesem Beitrag in den einwandfrei funktionierenden Code noch einfüge, dass die alle Blätter mit den bereits vergangenen Wochentagen bzw. alle Zellen darin gesperrt werden, um nachträgliche Änderungen zu verhindern.
Wäre euch wieder mal sehr dankbar
VG
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nicht aktive Blätter sperren/schützen
16.03.2022 13:12:30
ChrisL
Hi Marcel
Ein etwas anderer Ansatz.
Nachteil: Die Blätter müssen an fixer Position (Montag = 1. Blatt der Mappe) sein
Vorteil: Die Version funktioniert Sprachunabhängig

Sub t()
Dim i As Integer
For i = 1 To 5
If i 
cu
Chris
AW: Nicht aktive Blätter sperren/schützen
18.03.2022 14:50:19
Marcel
Hey Chris danke für deine Antwort. Leider funktioniert der Code nicht. Idee wieso?
Anzeige
AW: Nicht aktive Blätter sperren/schützen
18.03.2022 15:00:49
ChrisL
Hi Marcel
Leider keine Idee. Deine Fehlerbeschreibung sagt wenig aus. Eine Beispieldatei würde helfen.
cu
Chris
AW: Nicht aktive Blätter sperren/schützen
18.03.2022 15:13:47
Marcel
Hey Chris,
ja sorry. Der Grund wird sein, dass für dieses Makro alle Zellen geschützt werden müssen. Das ist aber nicht möglich. Die Blätter haben geschützte Zellen und ungeschützte die ausgefüllt werden müssen. Wenn das Blatt dann nicht mehr aktiv ist, also ein anderer Wochentag ist, dann sollen auch die ausgefüllten, ungeschützten Zellen geschützt werden.
Anzeige
AW: Nicht aktive Blätter sperren/schützen
18.03.2022 15:23:00
ChrisL
Hi Marcel
Wie wärs hiermit...

Sub t()
Dim i As Integer
For i = 1 To 5
With Worksheets(i)
If i 
cu
Chris
;

Beliebteste Forumthreads (12 Monate)

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