AW: Arbeitsmappe nach Zeit schliessen
02.08.2005 11:58:33
Daniel
Tschuldigung, mir war nicht klar, dass noch Interrese bestand.
Dass habe ich bekommen, funktioniert einwandfrei.
Option Explicit
Dim DaA As Date
Sub startzeit()
On Error Resume Next
Application.OnTime EarliestTime:=DaA, Procedure:="Schließen", Schedule:=False
DaA = Now + CDate("0:05:00")
Application.OnTime DaA, "Schließen"
End Sub
Sub Schließen()
ThisWorkbook.Close True
End Sub
Sub Zurücksetzen()
Application.OnTime EarliestTime:=DaA, Procedure:="Schließen", Schedule:=False
End Sub
' In diesem Beilspiel wird die Mappe geschlossen, wenn innerhalb von 10 Sekunden keine Selection
' auf einem Tabellenblatt erfolgte.
' Die Mappe wird dabei gespeichert. Soll dies nicht der Fall sein, ändere True in False.