Workbook soll sich von alleine schließen

Schon wieder vergeßen das Workbook zu schließen? Mit dieser Excel-Datei passiert das sicher nicht. Sobald eine zuvor festgelegte Zeit lang keine Änderungen oder Ähnliches vorgenommen wurden schließt sich das Workbook von alleine.

Beim ersten Öffnen ist es ratsam Makros deaktiviert zu lassen, um die Zeit einstellen zu können.

Die Funktion CloseAfter5Minutes wird über verschiedene Events (zum Beispiel bei Auswahl einer anderen Zelle oder Wechsel des Worksheets) ausgeführt:

Public Sub CloseAfter5Minutes()
'"CloseTheWorkbook" ist der Name der aufzurufenden Funktion
'Timer auf 4 Sekunden

    'Die alte OnTime-Funktion "löschen"
    On Error Resume Next
    Application.OnTime time, "CloseTheWorkbook", , False
    On Error GoTo 0
    'Neuen Timer setzen
    time = Now + TimeValue("00:00:04")
    Call Application.OnTime(time, "CloseTheWorkbook")
End Sub

Code eingefügt mit Syntaxhighlighter 4.15
AnhangGröße
CloseWorkbookAfterXZYMinutes.xls32.5 KB
Your rating: Keine