Wie kann man die Arbeitsmappe nach einer bestimmten Zeit der Inaktivität automatisch speichern und schließen?
Manchmal schließen Sie eine Arbeitsmappe möglicherweise versehentlich, wenn Sie längere Zeit mit anderen Aufgaben beschäftigt sind – und riskieren so den Verlust wichtiger Daten. Gibt es einen Trick, um die Arbeitsmappe automatisch zu speichern und zu schließen, sobald sie eine bestimmte Zeit inaktiv war?
Arbeitsmappe nach Inaktivität für eine bestimmte Zeit automatisch Speichern und schließen mit VBA
Arbeitsmappe nach Inaktivität für eine bestimmte Zeit automatisch Speichern und schließen mit VBA
Excel bietet keine integrierte Funktion zur Lösung dieses Problems, aber ich kann Ihnen einen Makrocode vorstellen, der Ihre Arbeitsmappe nach einer bestimmten Inaktivitätszeit automatisch speichert und schließt.
1. Öffnen Sie die Arbeitsmappe, die nach einer bestimmten Inaktivitätszeit automatisch gespeichert und geschlossen werden soll, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applicationszu öffnen.
2. Klicken Sie auf Einfügen > Modul, um ein Modul-Skript zu erstellen, und fügen Sie den folgenden Code darin 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 dann im Bereich Projektmappen-Explorer auf Diese Arbeitsmappe und fügen Sie den folgenden Code in das danebenliegende 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. Gehen Sie zu dem Modul, das Sie in Schritt 2 eingefügt haben, doppelklicken Sie darauf und drücken Sie die Taste F5, um den Code auszuführen. Siehe Screenshot:
5. Nach 15 Sekunden erscheint ein Dialogfeld, 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) Falls Sie die Arbeitsmappe noch nie gespeichert haben, wird zunächst das Dialogfeld Speichern unter angezeigt und Sie werden aufgefordert, die Datei zu speichern.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins