Hur kontrollerar jag om en arbetsbok sparas?

När du öppnar en ny arbetsbok kan du glömma att spara den, det blir irriterande om du stänger arbetsboken av misstag. Men hur kan du kontrollera om en Excel-arbetsbok har sparats?

Kontrollera om en arbetsbok är sparad eller inte med VBA-kod

Kontrollera om en arbetsbok är sparad eller inte med VBA-kod

Kontrollera om en arbetsbok har sparats eller inte, följande VBA-kod kan göra dig en tjänst, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Kontrollera om en arbetsbok sparas eller inte:

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. Tryck sedan på F5 nyckel för att köra den här koden får du följande rutor:

(1.) Om arbetsboken har sparats kommer en snabbruta att dyka upp för att påminna dig om den senast sparade tiden för din arbetsbok:

(2.) Om arbetsboken inte har sparats får du följande rutan: