Excel VBA Макросы: Код макроса для сохранения и закрытия книги.

[Посетитель]

С помощью какого кода можно сохранить и закрыть книгу?

[Администратор]

Макрос работает с активным файлом (это файл, который отображается на мониторе).

Sub Макрос()
   
    ' Сохранение файла.
    ActiveWorkbook.Save
   
    ' Закрытия файла.
        ' SaveChanges:=False - чтобы не было сообщения, предлагающего сохранить изменения.
        ' Ранее в коде сделано сохранение, но бывает так, что, не смотря на это, при закрытии
        ' файла появляется сообщение, предлагающее сохранить изменения.
    ActiveWorkbook.Close SaveChanges:=False

End Sub

[Посетитель]

Спасибо помогло.

При запуске этого макроса появляется сообщение: Предупреждение о конфиденциальной информации...
Почему появляется это сообщение?

[Администратор]

Это сообщение появляется, т.к. здесь установлена галочка (Excel 2016): Файл - Параметры - Центр управления безопасностью - Параметры центра управления безопасностью... - Параметры конфиденциальности - Параметры для конкретного документа - Удалять персональные данные из свойств файла при сохранении.

Есть два варианта, чтобы не было этого сообщения:

1) уберите эту галочку;

2) окружите сохранение файла таким кодом:
' Сохранение файла.
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True

[Посетитель]

Большое спасибо. Супер форум.