Clever-Excel-Forum - Tabellen nach festgelegtem Datum sperren

Hallo zusammen,

ich habe eine Datei mit mehreren Tabellen (Monate 1-12).
Die einzelnen Tabellen sollen sich nun nach einem festgelegten Datum (Zelle D5 in der jeweiligen Tabelle) sperren.
In den einzelnen Tabellen gibt es schon gesperrte Zellen und Zellen, die bearbeitet werden dürfen.
Nun soll ich also dann alles sperren.

Außerdem soll nach dem Datum in der Tabelle, die gesperrt ist, bei Aufrufen eine Checkbox mit Info, dass die Tabelle gesperrt ist und das Passwort zur Entsperrung abgefragt werden.

Kann mir jemand helfen?

Liebe Grüße
Einblatt

Hallöchen,

hier mal ein Ansatz zum Sperren. Der Code kommt in jedes Tabellenblatt wo er wirken soll.

Code:
Private Sub Worksheet_Activate()

    If Date > Range("D5").Value Then ActiveSheet.Protect Password:="Geh heim"

End Sub

Wenn man die Namen hat, würde es, um eine Prüfung des Blattnamens erweitert, auch in DieseArbeitsmappe reichen

Hola,

zur info....

http://www.vba-forum.de/forum/View.aspx?...um_sperren

Gruß,
steve1da

Hallo schauan,

die vorher nicht gesperrten Zellen sind trotzdem noch beschreibbar.

Grüße
Einblatt

Hallöchen,

Du hast Eingangs ja von Tabellen geschrieben und nicht von Zellen und bei Tabellen nimmt man den Blattschutz …
Wenn Du die Eigenschaft "Gesperrt" von den Zellen ändern willst musst Du ggf. zuvor auch den Blattschutz aufheben und anschließend wieder setzen. Oder Du machst es so. Setze den Schutz mit UserFaceOnly:=True und Du kannst hinterher per Code auf dem Blatt rumwuseln und z.B. den Zellschutz aufheben oder setzen.

Code:
Sub Protect_Sheet()

ThisWorkbook.Sheets("Tabelle1").Protect "Geh heim", userinterfaceonly:=True

End Sub

Sub EditLock()

ThisWorkbook.Sheets("Tabelle1").Range("A1").Locked = False

End Sub

super
danke für deine Hilfe
Liebe Grüße
Einblatt