Makro für Spalten Schutz nach Datum/Wochenweise

Hallo Liebe Excel Freunde,
ich habe zwar das Forum durchsucht und konnte aber leider keine passende Hilfe finden.
Ist es möglich mit einem Makro automatisch die Zeilen/Spalten Wochenweise mit Passwort zu schützen?
Hier die Beispiels Mappe:

Die Datei https://www.herber.de/bbs/user/84140.xls wurde aus Datenschutzgründen gelöscht

Als Beispiel: in Tabellen Blatt Max Mustermann1, Datum (von 25.02.2013 bis 03.03.2013) diese Woche E77:J89 sollte kein Passwort Schutz haben. Anderen Spalten E8:J75 (01.01.2013 bis 24.02.2013) sollten mit Passwort geschützt werden.
Weitere Details zu Beispiels Datei: ich wollte Mitarbeiter eingetragene Anfangs und End Zeiten in Spalten von E8:J491 nach Datum (bzw. Wochenweise) mit Passwort schützen. Es gibt viele Tabellen Blätter mit vielen Mitarbeiter Namen (ca. 80) die durch Abteilungen (ca. 10 Abteil.) getrennt sind. Beispiel Mappe hat nur als Beispiel 2 Mitarbeitern. Alle Excel Mappen und Tabellen haben gleiche Struktur Aufbau (Namen, Kalender, Anfangs und End Zeiten sowie Spalte für Feiertagen).
Struktur Aufbau beinhaltet:
Spalte A Datum 01.01.2013,
Spalte C nummerierten Tagen,
Spalte D Tagesnamen,
Tabellen Namen haben verschiedene Mitarbeiter Beispiels Namen
Gesuchte Lösung:
Die Spalten von E8 bis J75 wollte ich mit Passwort nach Datum schützen. D.h. letzte Woche endete am Sonntag den 24.02.2013, so bis diese Woche sollten die Spalten E8:J75 mit Passwort geschützt werden. Diese Woche (25.02.2013 bis 03.03.2013) ist noch nicht beendet so die solle nicht geschützt werden.
Alle andere Tabellen Blätter (Data, Blank und Global)sollen nicht mit Passwort geschützt werden.
Hoffe das ich mir klar ausgedruckt habe.
Für jede Hilfe bin Euch sehr dankbar.
Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BlockierenWochen() Dim datDatum As Date Dim wks As Worksheet Dim lngZeile As Long Const strPW As String = "Test" For Each wks In ActiveWorkbook.Worksheets Select Case wks.Name Case "Data", "Blank", "Global" 'nicht schützen Case Else With wks .Unprotect Password:=strPW For lngZeile = 8 To .Cells(.Rows.Count, 1).End(xlUp).Row If IsDate(.Cells(lngZeile, 1)) Then datDatum = .Cells(lngZeile, 1).Value If Date - datDatum >= 7 Then .Range(.Cells(lngZeile, 5), .Cells(lngZeile, 10)).Locked = True ElseIf (Date - datDatum > 0 And VBA.Weekday(Date, vbMonday)

Hallo Daniel,
das Problem mit dem Spaltenschutz hat Franz gelöst.
Vielleicht gibt dir aber auch meine geänderte Tabellenstruktur von "Max, Mustermann2" inkl. Makros ein paar Anregungen.
https://www.herber.de/bbs/user/84168.xlsm
Unter 'Module' habe ich das Makro "KW_formatieren" abgelegt. Es wird in der Tabelle "Max, Mustermann2" gestartet, wenn du in Zelle B8 das Datum änderst (Worksheet_Change). Da du n Mustermänner hast, ist dies die sinnvollste Lösung, falls Änderungen am - allgemein gültigen - Makro nötig sind. Wenn du z.B. die aktuell von mir verwendete (ätzende) Hintergrundfarbe ändern möchtest, dann brauchst du nur eine Änderung vorzunehmen. Wenn dagegen "KW_formatieren" in allen n Tabellenblättern hinterlegt wäre, hättest du richtig Arbeit.
Worksheet_Change müsste bei meinem Vorschlag dann in allen Mustermann-Tabellen hinterlegt sein.
Ich bin faul, ich bevorzuge Lösungen, die den Arbeitsaufwand auf ein Minimum beschränken. Wozu sonst braucht man Excel / VBA?
Gruß, Rolf

Beliebteste Forumthreads (12 Monate)

Makro für Spalten Schutz nach Datum/Wochenweise

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro für Spalten Schutz nach Datum/Wochenweise

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread