Jak zkontrolovat, zda je sešit uložen?

Když otevřete nový sešit, můžete jej zapomenout uložit, bude to nepříjemné, pokud sešit omylem zavřete. Jak ale můžete zkontrolovat, zda byl sešit aplikace Excel uložen?

Zkontrolujte, zda je sešit uložen nebo ne s kódem VBA

Zkontrolujte, zda je sešit uložen nebo ne s kódem VBA

Při kontrole, zda je sešit uložen nebo ne, vám následující kód VBA udělá laskavost, udělejte to takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Zkontrolujte, zda je sešit uložen nebo ne:

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, získáte následující pole s výzvou:

(1.) Pokud byl sešit uložen, zobrazí se okno s výzvou, které vám připomene poslední uložený čas sešitu:

(2.) Pokud sešit nebyl uložen, zobrazí se následující okno s výzvou: