Excel - Arbeitsmappe automatisch schliessen und speichern

Bewertung:  / 5

Skill 2  

Eine Arbeitsmappe automatisch speichern und schließen lassen, wenn eine definierte Zeitspanne lang keine Änderungen mehr an der Arbeitsmappe stattgefunden haben. Das wünscht sich jeder, der einen Kollegen hat, der gerne mit geöffneten Dokumenten in die Mittagspause geht.

Der Einbau der Funktion gestaltet sich nicht weiter schwierig.

Öffnen Sie unter Extras -> Makro den 'Visual Basic Editor'.
Hier doppelklicken Sie im linken oberen Fenster auf 'Diese Arbeitsmappe' und fügen Sie im rechten Fenster folgenden Quelltext ein:

Dim altezeit
Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 1, 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, 1, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub

 
Fügen Sie im Visual Basic Editor mit Einfügen -> Modul ein neues Modul ein.Hier ergänzen Sie folgenden Quelltext:

Sub Schließen()
ActiveWorkbook.Close savechanges:=True
End Sub

Damit speichert und schließt die entsprechende Arbeitsmappe sich nach 1 Minute Inaktivität ganz von selbst. Die Zeitspanne kann natürlich ganz nach Wunsch abgeändert werden.

Weitersagen!