Datei automatisch schließen
23.08.2004 08:17:32
Vroni
ich möchte, dass sich eine Excel-Datei automatisch nach 15 Minuten schließt.
Hab auch schon einen Ansatz: siehe unten
Das funktioniert auch, aber wenn die Datei bereits vorher geschlossen wurde, dann macht sich die Datei nach den abgelaufenen 15 Minuten automatisch wieder auf, speichert die Datei und schließt sie wieder.
Vielen Dank schon mal!
Vroni
in "DieseArbeitsmappe":
Dim altezeit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
neuezeit = Time + TimeSerial(0, 15, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
und in ein Modul:
Sub Schließen
ActiveWorkbook.Close savechanges:=True
End Sub