Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Tabellen nach festgelegtem Datum sperren
#1
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
Antwortento top
#2
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
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#3
Hola,

zur info....

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

Gruß,
steve1da
Antwortento top
#4
Hallo schauan,

die vorher nicht gesperrten Zellen sind trotzdem noch beschreibbar.

Grüße
Einblatt
Antwortento top
#5
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
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#6
super
danke für deine Hilfe
Liebe Grüße
Einblatt
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste