Wie können Sie prüfen, ob eine Arbeitsmappe bereits gespeichert wurde?
Wenn Sie ein neues Arbeitsblatt öffnen, vergessen Sie möglicherweise, es zu speichern – und es ist ärgerlich, wenn Sie die Arbeitsmappe versehentlich schließen. Doch wie können Sie prüfen, ob eine Excel-Arbeitsmappe bereits gespeichert wurde?
Überprüfen Sie mit VBA-Code, ob eine Arbeitsmappe gespeichert wurde oder nicht
Überprüfen Sie mit VBA-Code, ob eine Arbeitsmappe gespeichert wurde oder nicht
Um zu prüfen, ob eine Arbeitsmappe bereits gespeichert wurde, unterstützt Sie der folgende VBA-Code. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Prüfen, ob eine Arbeitsmappe gespeichert wurde oder nicht:
Sub filesaved()
'Updateby Extendoffice 20161109
Dim sLastTime As String
On Error GoTo EHandler
sLastTime = ActiveWorkbook.BuiltinDocumentProperties("last save time")
MsgBox sLastTime, vbInformation, "Kutools for Excel"
Exit Sub
EHandler:
MsgBox "File not saved", vbInformation, "Kutools for Excel"
End Sub
3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Daraufhin erscheinen die folgenden Meldungsfenster:
(1.) Wenn die Arbeitsmappe bereits gespeichert wurde, erscheint ein Meldungsfenster, das Sie an den letzten Speicherzeitpunkt Ihrer Arbeitsmappe erinnert:
(2.) Wenn die Arbeitsmappe noch nicht gespeichert wurde, erhalten Sie das folgende Meldungsfenster:
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