エクセルを閉じる際の保存確認のメッセージボックスを作るマクロ

Question

エクセルを閉じる際に、実装させるマクロがあります。
（フィルタ解除や表示縮尺の統一など）
↓下記のスタートです
Private Sub Workbook_BeforeClose(Cancel As Boolean)

この結果を残すために最後に保存のコードを記載していたのですが
保存をしたくないときにも必ず保存されてしまいこまっています。

通常、エクセルを閉じる際に出る確認メッセージ
「保存しますか？」「はい、いいえ、キャンセル」
これをマクロで記載、実装させる方法はありますでしょうか。

下記のコードではうまく実行しません。。
下記のコードを使用せずでも構わないので、
方法を教えていただけると幸いです。よろしくお願いいたします。

Dim Ans As Long
Ans = MsgBox("保存して終了しますか？", vbYesNoCancel + vbInformation, Select Case Ans
Case vbYes
ActiveWorkbook.Save
Application.Quit
Case vbNo
ActiveWorkbook.Saved = True
Application.Quit
Case Else
Cancel = True
Exit Sub
End Select
End Sub

Comments

[ttyp03]

どううまく実行しないのでしょうか？
詳細を記入してください。

[ttyp03]

MsgBoxの行が不完全ですね。
次の行とくっついている。
あとコードはコードを選択したあと<code>ボタンを押し「VBA」と入力してください。

[nozomi0930]

もう一度試してみたところうまく動作しました＞＜
ありがとうございました！

Answer 1

提示のコードで特に問題なさげですが、整理するとこんな感じでしょうか。
（インデントがないと非常に読みにくいです＞＜）

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim lngYesNo As Long
    
    Application.Quit
    
    lngYesNo = MsgBox("上書き？", vbYesNoCancel + vbInformation)
    
    Select Case lngYesNo
        Case vbCancel: Cancel = True
        Case vbNo: Me.Saved = True
        Case vbYes: Me.Save
    End Select
End Sub

---

ちょっと気になったのは、
ActiveWorkbook
って表現、
あと、同じブックを2画面以上で表示してたら、どんな挙動をするのだろう？

それから、バージョンによっても挙動が違うかも、
今日はこちらは２００３なので、、、、、

Comments

[nozomi0930]

もう一度試してみたところうまく動作しました＞＜
ありがとうございました！

Answer 2

あなたの提示されたコードです。以下で間違いないですか。
保存して終了しますか？で「いいえ(N)」をクリックすると、変更分が反映されずに終了します。
何が問題なのでしょうか。
ThisWorkbookに記述。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Ans As Long
    Ans = MsgBox("保存して終了しますか？", vbYesNoCancel + vbInformation)
    Select Case Ans
    Case vbYes
        ActiveWorkbook.Save
        Application.Quit
    Case vbNo
        ActiveWorkbook.Saved = True
        Application.Quit
    Case Else
        Cancel = True
        Exit Sub
    End Select
End Sub

Comments

[nozomi0930]

もう一度試してみたところうまく動作しました＞＜
ありがとうございました！