Arbeitsmappe sperren nach Datumsablauf.
02.07.2019 14:16:28
Niko
habe ein kleines Thema mit Datumssperre. Möchte meine Arbeitsmappe sperren wenn Datum abgelaufen ist, mit VBA. Habe hin und her rechesiert aber ohne Erfolg. Habe in diesen Forum super gute Ansätze für Zeilen, Zellen oder Blatt Sperrungen mit Datum gefunden, doch habe ich nichts mit Arbeitsmappe Sperrung nach Datumsablauf gefunden.
Habe anbei ein kleinen Code gefunden (weiß nicht mehr wo), doch der funktioniert nicht.
--------------------------------------
Private Sub Workbook_Open()
If Date >= CDate("31.01.2020") Then
MsgBox "Mappe nicht mehr gültig, bitte benutze die neue oder kontaktiere mit mir."
ThisWorkbook.Close
End If
End Sub
----------------------------------------------------
Es soll die ganze Arbeitsmappe sperren, wenn möglich schon bei anklicken der Mappe soll ein Fenster aufgehen das informiert das es nicht geöffnet werden kann. Oder das es aufgeht und nicht mehr eingetragen werden kann.
In welcher Möglichkeit auch immer, es soll nicht mehr benutzt werden können nach Ablauf eines gewissen Datums.
Danke allen in voraus,
Niko