Zeitliche Begrenzung
28.06.2002 22:40:42
tom
habe ein Problem wie folgt:
Habe meine Arbeitsmappe zwecks zeitlicher Begrenzung mit folgendem Code belegt:
Private Sub Workbook_Open()
If Date >= "27.06.2002" Then
MsgBox "Ihre Testzeit ist abgelaufen," & vbCr & "bitte wenden Sie sich an Ihren Administrator."
ActiveWorkbook.Close savechanges:=False
End If
End Sub
Seltsamerweise kann ich die Datei nach dem 27.06.noch ohne weiteres öffnen.
Und nur mit Befehl "Ausführen" im VBA erscheint die Box und schließt das Workbook.Ziel sollte sein, dass die Datei nach dem erreichten Datum überhaupt nicht mehr geöffnet werden kann.
Weis jemand Rat was ich falsch gemacht habe?
PS: Bin kein VBA Profi!
Danke - Tom
Anzeige