Excel nach bestimmter Zeit schließen
04.12.2006 23:51:44
Timo
Ich möchte, dass meine Datei nach einer bestimmten Zeit geschlossen wird. Im Forum habe ich folgenden CODE gefunden. Funktioniert eigentlich auch. Jetzt möchte ich aber gleich Bei Workbook_open den Befehl userform1.show ausführen lassen. Dann funktioniert es nicht mehr.
Kann man das nicht irgendwie auf die Userform anwenden? Also wenn sich alle Textboxen der Userform1 nach bestimmter Zeit nicht verändert haben wir die Datei beendet oder noch besser ein Passwortschutz aufgerufen, ähnlich dem Windowsbildschirmpasswort.
Danke für Eure Hilfe
Gruß Timo
Code in "Diese Arbeitsmappe":
Dim altezeit
Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 2, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
neuezeit = Time + TimeSerial(0, 2, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
EINFÜGEN - MODUL
Code in Modul:
Sub Schließen()
ActiveWorkbook.Close savechanges:=True
End Sub