Закрытие Workbook

[3BEPOBOY]

Вопрос такой. Мне требуется закрыть без изменений и лишних вопросов книгу, для этого я использую

Application.DisplayAlerts = False
Application.Quit

Если открыта всего одна книга, все хорошо. Но если таковых несколько, закроются все вместе с оболочкой Application, причем также без сохранений. А это уже нехорошо.
До этого использовал какую-то команду, которая закрывала книгу, но оболочку не трогала. То есть устраивало лишь в случае с многими книгами.

Помогите найти компромисс!

[EducatedFool]

activeworkbook.close - закрытие книги (если книга не сохранена, будет задан вопрос)

activeworkbook.close TRUE - закрытие книги с принудительным сохранением
activeworkbook.close FALSE - закрытие книги без сохранения

Во встроенной справке по VBA всё это написано

[3BEPOBOY]

Вы меня не поняли. Мне не нужно просто закрыть книгу.
Нужно чтобы:
1) не было никаких вопросов сохранять или нет
2) чтобы закрывался Excel полностью, а не книжки внутри оболочки
3) чтобы макрос не трогал другие открытые файлы, если таковые имеются

activeworkbook.close мне ничего не дает

[аналитика]

If wb.Saved Then
         Exit Sub
      Else
         msg = "Сохранить изменения в файле '" & wb.Name & "'?"
         Select Case MsgBox(msg, vbExclamation + vbYesNoCancel)
         Case vbYes
            wb.Save
         Case vbNo
            wb.Saved = True   'не сохраняя книгу, показывает приложению, что она сохранена!!!
         Case vbCancel
            Cancel = True
         End Select
      End If

[3BEPOBOY]

аналитика
можете переделать мой код?
его задача заменить стандартное диалоговое окно. А смысл в том что сюда на кнопки да/нет еще действия навешаны будут.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim x As Integer
x = MsgBox("Сохранить изменения в файле '" & ThisWorkbook.Name & "'?", vbYesNoCancel, "Microsof Office Excel")

If x = 7 Then
MsgBox ("Нажато NO")
  ThisWorkbook.Saved = True
  Application.DisplayAlerts = False
  Application.Quit ----???
Else
   If x = 6 Then
        MsgBox " Нажато YES"
        ActiveWorkbook.Save
      Else
        If x = 2 Then
            Cancel = True
            MsgBox " НажатоCancel"
        End If
   End If
End If

End Sub

[3BEPOBOY]

аналитика
превратил ваш код вот в такой макрос:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wb As Workbook
Set wb = ActiveWorkbook
If wb.Saved Then
         Exit Sub
      Else
         msg = "Сохранить изменения в файле '" & wb.Name & "'?"
         Select Case MsgBox(msg, vbExclamation + vbYesNoCancel)
         Case vbYes
            wb.Save
            MsgBox "да"
         Case vbNo
            wb.Saved = True   'не сохраняя книгу, показывает приложению, что она сохранена!!!
            MsgBox "нет"
         Case vbCancel
            Cancel = True
            MsgBox "отмена"
         End Select
      End If
      
End Sub

Работает не совсем так как нужно. Когда открыто несколько книг, он пытается закрыть и другие. При этом спрашивает. Я жму "отмена", другие не закрываются, но вместе с ними не закрывается и нужная.
HELP!