Как проверить, сохранена ли книга?

Когда вы открываете новую книгу, вы можете забыть ее сохранить, это будет раздражать, если вы случайно закроете книгу. Но как проверить, сохранена ли книга Excel?

Проверьте, сохранена ли книга с кодом VBA

Проверьте, сохранена ли книга с кодом VBA

Проверяя, сохранена книга или нет, следующий код VBA может оказать вам услугу, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: проверьте, сохранена ли книга:

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, Затем нажмите F5 ключ для запуска этого кода, вы получите следующие подсказки:

(1.) Если книга была сохранена, появится всплывающее окно с напоминанием о времени последнего сохранения вашей книги:

(2.) Если книга не была сохранена, появится следующее окно подсказки: