Tabellen nach festgelegtem Datum sperren

[Einblatt]

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

[schauan]

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

[steve1da]

Hola,

zur info....

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

Gruß,
steve1da

[Einblatt]

Hallo schauan,

die vorher nicht gesperrten Zellen sind trotzdem noch beschreibbar.

Grüße
Einblatt

[schauan]

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

[Einblatt]

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