Wie kann man eine Excel-Datei nach einer bestimmten Inaktivitätszeit automatisch speichern und schließen?
In einigen Fällen – etwa wenn eine Excel-Datei auf einem freigegebenen Laufwerk geöffnet bleibt und weiterhin von einem Benutzer genutzt wird – können andere die Arbeitsmappe nicht bearbeiten. Wie kann die Datei daher nach einer bestimmten Inaktivitätszeit automatisch geschlossen werden, um anderen die Zusammenarbeit zu erleichtern? Dieser Artikel unterstützt Sie mit einer VBA-Methode.
Automatisches Speichern und schließen einer Excel-Datei nach einer bestimmten Inaktivitätszeit mithilfe von VBA-Code
Um eine Excel-Datei nach einer bestimmten Inaktivitätszeit automatisch zu speichern und zu schließen, gehen Sie wie folgt vor:
1. Öffnen Sie die Arbeitsmappe, die nach einer bestimmten Inaktivitätszeit automatisch gespeichert und geschlossen werden soll. Drücken Sie anschließend gleichzeitig die Tasten Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications im rechten Bereich auf DieseArbeitsmappe (ThisWorkbook), um das Codefenster zu öffnen. Anschließend kopieren Sie den folgenden VBA-Code und fügen ihn in das Codefenster ein. Siehe Screenshot:
VBA-Code 1: Automatisches Speichern und schließen einer Excel-Datei nach einer bestimmten Inaktivitätszeit
Dim xTime As String
Dim xWB As Workbook
Private Sub Workbook_Open()
'Updated by Extendoffice 2019/1/20
On Error Resume Next
xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 2)
Set xWB = ActiveWorkbook
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Sub Reset()
Static xCloseTime
If xCloseTime <> 0 Then
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False
End If
xCloseTime = Now + TimeValue(xTime)
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True
End Sub
3. Klicken Sie danach auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein. Siehe Screenshot:
VBA-Code 2: Automatisches Speichern und schließen einer Excel-Datei nach einer bestimmten Inaktivitätszeit
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub4. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
5. Klicken Sie auf Datei > Speichern unter > Durchsuchen. Siehe Screenshot:
6. Wählen Sie im Dialogfeld Speichern unter den gewünschten Speicherort aus, geben Sie im Feld „Dateiname“ einen Namen Ihrer Wahl ein, wählen Sie im Dropdown-Menü Speichern unter unter Excel-Arbeitsmappe mit Makros aktiviert in der Typ-Dropdown-Liste aus und klicken Sie abschließend auf die Schaltfläche Speichern. Siehe Screenshot:
Ab sofort erscheint beim Öffnen dieser Arbeitsmappe ein Kutools für Excel-Dialogfeld. Geben Sie hier die Zeit ein, nach deren Ablauf die Arbeitsmappe automatisch gespeichert und geschlossen werden soll, und klicken Sie anschließend auf die Schaltfläche OK.
Die Arbeitsmappe wird danach automatisch nach der angegebenen Inaktivitätszeit gespeichert und geschlossen. Siehe Screenshot:
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
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