Hoe controleer je of een werkboek is opgeslagen?
Wanneer je een nieuw werkboek opent, kun je vergeten het op te slaan, en het kan vervelend zijn als je het werkboek per ongeluk sluit. Maar hoe kun je controleren of een Excel-werkboek is opgeslagen?
Controleer of een werkboek is opgeslagen met VBA-code
Controleer of een werkboek is opgeslagen met VBA-code
Om te controleren of een werkboek is opgeslagen, kan de volgende VBA-code je helpen. Volg deze stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Controleer of een werkboek is opgeslagen:
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. Druk vervolgens op de F5-toets om deze code uit te voeren. Je krijgt de volgende pop-upvensters te zien:
(1.) Als het werkboek is opgeslagen, verschijnt er een pop-upvenster dat je eraan herinnert wanneer het werkboek voor het laatst is opgeslagen:
(2.) Als het werkboek niet is opgeslagen, krijg je het volgende pop-upvenster te zien:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen