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

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

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

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

Чтобы проверить, сохранена ли книга или нет, следующий код VBA может помочь вам, выполните следующие действия:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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.) Если книга не была сохранена, вы получите следующее диалоговое окно: