ブックを保存せずに閉じると、Excelが再起動される。

Question

実現したいこと

ユーザーフォームの×ボタンが押されたら、
ブックを保存せずに閉じ、かつ、プロジェクト全ての処理を終了させたいです。

発生している問題

ユーザーフォームのQueryCloseイベントに、
・ブックを保存せずに閉じる
・引数なしのEndステートメント（すべての処理を終了させたいため）
を記述しています。
ユーザーフォームの×ボタンを押して閉じると、
ブックを保存せずに閉じると同時に、Excelそのものが再起動されてしまいます。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

'×ボタンが押された場合
If CloseMode = 0 Then
    If MsgBox("キャンセルしますか？", vbYesNo) = vbYes Then
        Workbooks(main).Close False     'main：パブリック変数
        MsgBox "処理を中止します。", vbExclamation
        End
    Else
        Cancel = True
    End If
End If

End Sub

試したこと

1) DoEventsを活用

検索して調べ、DoEventsを追記すれば解決するかと思い、試しました。
症状は変わりませんでした。

2) Cancelをパブリック変数で共有

あるいはと考え、ユーザーフォームと標準モジュールそれぞれで
Exit Subで処理を抜けさせようかと考えました。

If CloseMode = 0 Then
    If MsgBox("キャンセルしますか？", vbYesNo) = vbYes Then
        Cancel = False
        btn = Cancel    'btn：パブリック変数
        Workbooks(main).Close False     'main：パブリック変数
        MsgBox "処理を中止します。", vbExclamation
        Exit Sub
    Else
        Cancel = True
    End If
End If

Boolean型のパブリック変数でCancelプロパティを共有し、
標準モジュールにIf文でFalseの場合にExit Subを実行させたところ、
ブックを保存せずに閉じましたが、マクロが実行中のままExcelが固まってしまい、
マクロの実行をリセットするとExcelが再起動されます。
また、この場合の記述だと、
ユーザーフォームの本来の目的でコマンドボタンを実行した場合、
（ユーザーフォームの×ボタンを押していないのに）
標準モジュールがIf文のところで処理を抜けてしまいます。

3) CloseModeをパブリック変数で共有

If CloseMode = 0 Then
    If MsgBox("キャンセルしますか？", vbYesNo) = vbYes Then
        btn = CloseMode    'btn：パブリック変数
        Workbooks(main).Close False     'main：パブリック変数
        MsgBox "処理を中止します。", vbExclamation
        Exit Sub
    Else
        Cancel = True
    End If
End If

それならばと思い、CloseMode = 0をInteger型で共有してみました。
ですが、これもCancelを共有した場合と同様、
ブックを保存せずに閉じましたが、マクロが実行中のままExcelが固まってしまい、
マクロの実行をリセットするとExcelが再起動されます。
そしてやはり、ユーザーフォームの本来の目的でコマンドボタンを実行した場合、
標準モジュールがIf文のところで処理を抜けてしまいます。

4)妥協する

ちなみにですが、妥協してブックを保存せずに閉じることを諦めれば、
マクロ実行中のまま固まったり、Excelが再起動されたりといった症状は出ません。

If CloseMode = 0 Then
    If MsgBox("キャンセルしますか？", vbYesNo) = vbYes Then
        MsgBox "処理を中止します。", vbExclamation
        End
    Else
        Cancel = True
    End If
End If

お伺いしたいこと

ユーザーフォームのQueryCloseイベント内のみで完結させるには、
引数なしのEndステートメントしかないのでしょうか？
また、ユーザーフォームと標準モジュールそれぞれで
処理を抜けさせる方法は、他に何かあるのでしょうか？

補足情報

Windows10 Pro バージョン 2004
Excelのバージョン：365 ProPlus

Answer 1

自分自身でも調べながら解決方法を模索してきましたが、何を試しても症状が変わりませんでした。
妥協して諦めます。
ご回答ありがとうございます。

If CloseMode = 0 Then
    If MsgBox("キャンセルしますか？", vbYesNo) = vbYes Then
        MsgBox "処理を中止します。", vbExclamation
        End
    Else
        Cancel = True
    End If
End If

Answer 2

追加
全てのブックを閉じる場合

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Stop
      '×ボタンが押された場合
      If CloseMode = 0 Then
          If MsgBox("キャンセルしますか？", vbYesNo) = vbYes Then
            Call 全て閉じる
            Else
              MsgBox "処理を中止します。", vbExclamation
             End If
          
      End If
End Sub

標準モジュール
Sub 全て閉じる()
Dim i As Long
For i = Workbooks.Count To 1 Step -1
             
            Workbooks(i).Close savechanges:=False
           Application.Quit

Next i
End Sub

Comments

[montagna]

ご回答ありがとうございます。
Excel全体を終了させたいわけではないため、Application.Quitは候補に入れておりません。
もう一方のご回答を試してみます。

Answer 3

マクロ詳しくありませんが、下記構文何回もテストしました
「Workbooks(main).Close False 」 'main：パブリック変数
これについてはコメント化して
「ActiveWorkbook.Close False　」この様に書き換えました。
確認してみてください

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Stop
      '×ボタンが押された場合
      If CloseMode = 0 Then
          If MsgBox("キャンセルしますか？", vbYesNo) = vbYes Then
      '        Workbooks(main).Close False     'main：パブリック変数
'           Cancel = 1
            ActiveWorkbook.Close False
            Else
              MsgBox "処理を中止します。", vbExclamation
             End If
          
      End If
End Sub

Comments

[montagna]

ご回答ありがとうございます。
Workbooks(main).Close Falseを
ActiveWorkbook.Close Falseに変えて
実行したところ、Excelが再起動されてしまう症状は相変わらずでした。

ちなみにですが、上記の場合に、
①引数なしのEndではなくExit Subを記述する
②ご提案の通りEndもExitも記述しない
両パターンを試したところ、Excel全体が固まり、クリックする度に警告音が鳴るのみの状態になってしまい、タスクマネージャからExcelを終了させるしかできなくなってしまいました。

ご提案ありがとうございます。

Answer 4

Workbooks(main).Close False
↓
Workbooks(main).Saved = True

ではどうでしょう。

Comments

[montagna]

ご回答ありがとうございます。
Savedプロパティについて、調べました。
ブックを閉じる処理もしたいため、下記のように記述してみました。

変更前）
Workbooks(main).Close False

変更後）
Workbooks(main).Saved = True
Workbooks(main).Close

Excelが再起動されてしまう症状は相変わらずでした。

ご提案ありがとうございます。

[yorozuya]

そもそも、main って何ですか？
このコードが書かれているブックの名前ですか？
もしそうでしたら、コード内で Close してはいけません。
ましてや、End なんて普通は使いません。
すべてを終了するには、Application.Quit を使います。
そのとき、もし、ブックが変更されていると、保存するかどうか聞かれます。
ThisWorkbook.Saved = True をやっておくと聞かれずに閉じます。

Answer 5

OnTimeはどうでしょう。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    '×ボタンが押された場合
    If CloseMode = 0 Then
        If MsgBox("キャンセルしますか？", vbYesNo) = vbYes Then
            MsgBox "処理を中止します。", vbExclamation
            Application.OnTime Now + TimeValue("0:00:03"), "BookClose"
            End
        Else
            Cancel = True
        End If
    End If

End Sub

Sub BookClose()
    Workbooks(main).Close False
End Sub

Comments

[montagna]

ご回答ありがとうございます。
OnTimeメソッドを試してみました。

マクロ "（ファイルパス）!BookClose"を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。

上記のメッセージ表示とともにエラーになってしまいます。
初手で標準モジュールを実行し、そこでユーザーフォームを呼び出しているので、『すべてのマクロが無効になっている』ことは無いと思われます。
エラーメッセージを閉じた後は、マクロが実行中のまま固まっている様子もありません。

ご提案ありがとうございます。

[jinoji]

Sub BookClose() を どこのモジュールに配置しましたか。
たとえば"Module1.BookClose" のように明示的に書くと良いかもしれません。

[montagna]

コメントありがとうございます。
モジュールを指定したら、マクロが使用できないというエラーは発生しませんでしたが、Excelが再起動されてしまう症状は相変わらずでした。
ご教授ありがとうございます。