Wie speichert und schließt man eine Arbeitsmappe nach einer bestimmten Inaktivitätszeit automatisch?

Manchmal schließt man versehentlich eine Arbeitsmappe, wenn man längere Zeit mit anderen Dingen beschäftigt ist, was zum Verlust wichtiger Daten führen kann. Gibt es Tricks, um die Arbeitsmappe automatisch zu speichern und zu schließen, wenn sie für einen bestimmten Zeitraum inaktiv war?

Automatisches Speichern und Schließen der Arbeitsmappe nach einer bestimmten Inaktivitätszeit mit VBA

Automatisches Speichern und Schließen der Arbeitsmappe nach einer bestimmten Inaktivitätszeit mit VBA

In Excel gibt es keine integrierte Funktion, um dieses Problem zu lösen, aber ich kann Ihnen einen Makro-Code vorstellen, der Ihnen hilft, die Arbeitsmappe nach einer bestimmten Inaktivitätszeit automatisch zu speichern und zu schließen.

1. Aktivieren Sie die Arbeitsmappe, die Sie nach einer bestimmten Anzahl von Sekunden Inaktivität automatisch speichern und schließen möchten, und drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, um ein Modul-Skript zu erstellen, und fügen Sie den folgenden Code ein. Siehe Screenshot:

Dim CloseTime As Date
Sub TimeSetting()
    CloseTime = Now + TimeValue("00:00:15")
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=False
 End Sub
Sub SavedAndClose()
    ActiveWorkbook.Close Savechanges:=True
End Sub

3. Doppelklicken Sie im Bereich Projekt-Explorer auf Diese Arbeitsmappe und fügen Sie den folgenden Code in das Skript ein. Siehe Screenshot:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call TimeStop
End Sub

Private Sub Workbook_Open()
    Call TimeSetting
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Call TimeStop
   Call TimeSetting
End Sub

4. Doppelklicken Sie auf das Modul, das Sie in Schritt 2 eingefügt haben, und drücken Sie F5 , um den Code auszuführen. Siehe Screenshot:

5. Nach 15 Sekunden erscheint ein Dialogfenster, das Sie daran erinnert, die Arbeitsmappe zu speichern. Klicken Sie auf Ja , um die Arbeitsmappe zu speichern und zu schließen.

Tipps:

(1) Im ersten Code können Sie die Inaktivitätszeit in dieser Zeichenfolge ändern: Now + TimeValue("00:00:15")

(2) Wenn Sie die Arbeitsmappe noch nie gespeichert haben, wird das Dialogfeld Speichern unter zuerst angezeigt und fordert Sie auf, sie zu speichern.