Используйте сохраненное свойство, чтобы определить, изменилась ли книга.

Сводка

Вы можете определить, были ли внесены изменения в книгу, проверив свойство Сохранено книги. Свойство Сохранено возвращает значение True или False в зависимости от того, были ли внесены изменения в книгу.

Примечание.

Для свойства Сохраненные можно задать значение True или False. Раздел "Дополнительные сведения" этой статьи содержит примеры макросов, демонстрирующих использование свойства Saved.

Различные условия на листе, например наличие изменяемых функций, могут повлиять на свойство Saved.

Дополнительная информация

Корпорация Майкрософт предоставляет примеры программирования только в целях демонстрации без явной или подразумеваемой гарантии. Данное положение включает, но не ограничивается этим, подразумеваемые гарантии товарной пригодности или соответствия отдельной задаче. Эта статья предполагает, что пользователь знаком с представленным языком программирования и средствами, используемыми для создания и отладки процедур. Специалисты технической поддержки Майкрософт могут пояснить работу той или иной процедуры, но модификация примеров и их адаптация к задачам разработчика не предусмотрена.

Пример 1. Макрос для отображения сообщения о несохраненных изменениях в активной книге

Sub TestForUnsavedChanges()
    If ActiveWorkbook.Saved = False Then
        MsgBox "This workbook contains unsaved changes."
    End If
End Sub

Пример 2. Макрос для закрытия книги и отмены изменений

Этот макрос закрывает книгу, содержащую пример кода, и отменяет все изменения в книге, задав для свойства Сохраненные значение True:

Sub CloseWithoutChanges()
    ThisWorkbook.Saved = True
    ThisWorkbook.Close
End Sub

Пример 3. Другой макрос для закрытия книги и отмены изменений

Sub CloseWithoutChanges()
    ThisWorkbook.Close SaveChanges:=False
End Sub

Ссылки

Дополнительные сведения об использовании примера кода в этой статье см. в статье Запуск примера кода из статей базы знаний в Office 2000.