Hoe controleer ik of een werkmap is opgeslagen?

Wanneer u een nieuwe werkmap opent, vergeet u deze mogelijk op te slaan, het zal vervelend zijn als u de werkmap per ongeluk sluit. Maar hoe kunt u controleren of een Excel-werkmap is opgeslagen?

Controleer of een werkmap is opgeslagen of niet met VBA-code

---

Controleer of een werkmap is opgeslagen of niet met VBA-code

Controleer of een werkmap is opgeslagen of niet, de volgende VBA-code kan u een plezier doen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: controleer of een werkmap is opgeslagen of niet:

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 F5 sleutel om deze code uit te voeren, krijgt u de volgende promptvakken:

(1.) Als de werkmap is opgeslagen, verschijnt er een promptvenster om u te herinneren aan de laatst opgeslagen tijd van uw werkmap:

(2.) Als de werkmap niet is opgeslagen, krijgt u het volgende promptvenster te zien: