Datum in Zelle erst nach dem 2'ten öffnen d. Datei
26.06.2006 10:52:31
Torge
gibt es eine Möglichkeit, das Datum in eine Zelle erst nach dem zweiten öffnen der Datei eintragen zu lassen?
Verwende bei mir zur Zeit " Sheets("Passwort").Range("G9") = Date". Das Datum lasse ich mit der Systemzeit des Rechners agbleichen. Nun kann es ja passieren, das auf unterschiedlichen PC's die Zeiten unterschiedlich sind. Bekomme immer das Probelm, das wenn ich die Datei auf einem Laptop offne alles ok, dann auf einem anderen PC und ich bekomme eine Meldung Systemzeit verändert und Datei schließt sich.
If Sheets("Passwort").Range("G9") > Date Then
Application.EnableCancelKey = xlDisabled
MsgBox "Das Systemdatum wurde verstellt. Bitte korrigieren. Datei wird geschlossen.", vbOKOnly + vbCritical, Application.UserName
Application.EnableCancelKey = xlInterrupt
ActiveWorkbook.Close False
End If
'wenn die zelle G9 leer dann schließen wurd manipuliert
If Sheets("Passwort").Range("G9") Application.EnableCancelKey = xlDisabled
MsgBox "Das Systemdatum wurde verstellt. Bitte korrigieren. Datei wird geschlossen.", vbOKOnly + vbCritical, Application.UserName
Application.EnableCancelKey = xlInterrupt
ActiveWorkbook.Close False
End If
Kann man diese irgendwie anders lösen, eben das sich das Datum erst nach dem 2 x einträgt bzw. wenn die Datei auf einem anderen Rechner zum ersten Mal geöffnet wurde? Hintergrund ist, dass die Datei an andere User versendet wird und diese ja damit arbeiten sollen ohnen das die Fehlermeldung erscheint und sich die Datei schließt.
Vielen Dank schon Mal.
Gruß Torge