Wie speichere und schließe ich eine Arbeitsmappe nach Inaktivität für eine bestimmte Zeit?
In einigen Fällen können Sie versehentlich eine Arbeitsmappe schließen, wenn Sie längere Zeit mit anderen Angelegenheiten beschäftigt sind, wodurch einige wichtige Daten in der Arbeitsmappe verloren gehen. Gibt es Tricks, um die Arbeitsmappe automatisch zu speichern und zu schließen, wenn Sie sie für eine bestimmte Zeit inaktiviert haben?
Arbeitsmappe nach Inaktivität für eine bestimmte Zeit mit VBA automatisch speichern und schließen
Arbeitsmappe nach Inaktivität für eine bestimmte Zeit mit VBA automatisch speichern und schließen
In Excel gibt es keine integrierte Funktion, um dieses Problem zu lösen. Ich kann jedoch einen Makrocode einführen, mit dem Sie Arbeitsmappen nach Inaktivität in einer bestimmten Zeit speichern und schließen können.
1. Aktivieren Sie die Arbeitsmappe, die Sie automatisch speichern und nach Inaktivität für einige Sekunden schließen möchten, und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modul ein erstellen Modul Skript 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. Dann in der Projekt Explorer Doppelklicken Sie Dieses Arbeitsbuchund fügen Sie den folgenden Code in das nebenstehende 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 Schlüssel zum Ausführen des Codes. Siehe Screenshot:
5. Nach 15 Sekunden erscheint ein Dialogfeld, in dem Sie daran erinnert werden, dass Sie die Arbeitsmappe gespeichert haben, und klicken Sie auf Ja Speichern und Schließen der Arbeitsmappe.
Tipps:
(1) Im ersten Code können Sie die Inaktivitätszeit in dieser Zeichenfolge in eine andere ändern: Jetzt + TimeValue ("00:00:15")
(2) Wenn Sie die Arbeitsmappe noch nie gespeichert haben, wird die Speichern unter Das Dialogfeld wird zuerst angezeigt und Sie werden aufgefordert, es zu speichern.
Arbeitsblatt schützen
|
Kutools für Excel Arbeitsblatt schützen Die Funktion kann schnell mehrere Blätter oder die gesamte Arbeitsmappe gleichzeitig schützen. |
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!