Отключить запрос на сохранение в excel vba

Пример 1: Закрытие книги без сохранения изменений

Чтобы принудительно закрыть книгу, не сохраняя никаких изменений, введите следующий код в модуль Visual Basic этой книги:
 

    ДоЧерний элемент Auto_Close ()

        ThisWorkbook. Save = true

    End Sub

    Sub Клосебук ()

        Application. Дисплайалертс = false

        Активеворкбук. Close

        Application. Дисплайалертс = true

    End Sub

   

Sub CloseBook2()

   

   

ActiveWorkbook.Close savechanges:=False

   

End Sub

Пример 2: Закрытие книги и сохранение изменений

Чтобы принудительно сохранить изменения в книге, введите следующий код в модуль Visual Basic этой книги:
 

    ДоЧерний элемент Auto_Close ()

        Если ThisWorkbook. Save = false, то

            ThisWorkbook. Save End, если

    End Sub

Эта подпроцедура проверяет, было ли для сохраненного свойства File задано значение false. Если да, то книга была изменена с момента последнего сохранения, и эти изменения будут сохранены.

Example 1: Close the workbook without saving changes

To force a workbook to close without saving any changes, type the following code in a Visual Basic module of that workbook:
 

    Sub Auto_Close()

        ThisWorkbook.Saved = True

    End Sub

    Sub CloseBook()

        Application.DisplayAlerts = False

        ActiveWorkbook.Close

        Application.DisplayAlerts = True

    End Sub

   

Sub CloseBook2()

   

   

ActiveWorkbook.Close savechanges:=False

   

End Sub

Example 2: Close the workbook and save the changes

To force a workbook to save changes, type the following code in a Visual Basic module of that workbook:
 

    Sub Auto_Close()

        If ThisWorkbook.Saved = False Then

            ThisWorkbook.Save End If

    End Sub

This subprocedure checks to see if the file Saved property has been set to False. If so, the workbook has been changed since the last save, and those changes are saved.