【VBA】ユーザーフォームが閉じられるのをキャンセルする方法 (QueryClose)

2025年8月15日

はじめに

ユーザーフォームで入力画面を作成する際、「必須項目が入力されるまで、フォームを閉じられないようにしたい」という制御が必要になることがあります。例えば、利用規約への同意チェックボックスがオンになるまで、右上の「×」ボタンを無効化したい、といったケースです。

VBAのユーザーフォームには、フォームが閉じられようとする直前に発生する QueryClose という特別なイベントが用意されています。これを利用すれば、特定の条件を満たさない限り、フォームが閉じるのをキャンセル（中断）させることができます。

この記事では、QueryClose イベントを使って、フォームが閉じられるのを制御するスマートな方法を解説します。

フォームが閉じるのを防ぐVBAサンプルコード

このマクロは、ユーザーフォームの右上の「×」ボタンが押されたときなど、フォームが閉じられようとした瞬間に動作します。

ここでは、「利用規約に同意する」というチェックボックス（AgreeCheckBox）がオンになっていない限り、フォームを閉じさせない、という例を作成します。

ユーザーフォームのコード (`MainForm`)

このコードは、ユーザーフォームのコードモジュールに直接記述します。

VBEで対象のユーザーフォームをダブルクリックして表示します。
フォームの何もないところをダブルクリックしてコードウィンドウを開きます。
上部のドロップダウンで (General) から UserForm を選び、右側のドロップダウンで QueryClose を選びます。

' フォームが閉じられようとするときに実行されるイベント
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    ' --- チェックボックス(AgreeCheckBox)がオフの場合 ---
    If Me.AgreeCheckBox.Value = False Then
    
        ' CloseMode = 0 は、右上の「×」ボタンが押されたことを示す
        If CloseMode = vbFormControlMenu Then
        
            ' 処理をキャンセルし、メッセージを表示
            MsgBox "利用規約への同意が必要です。", vbExclamation, "確認"
            Cancel = True
            
        End If
    End If

End Sub

コードの解説

`Private Sub UserForm_QueryClose(...)`

QueryClose イベントは、フォームが閉じられようとする、あらゆる操作を検知して発生します。このプロシージャには、2つの重要な引数が渡されます。

Cancel As Integer: この引数に True を設定すると、フォームを閉じる操作がキャンセルされます。これがこのテクニックの核心です。
CloseMode As Integer: フォームがどのような理由で閉じられようとしているかを示す数値が入っています。