エクセル研究室−Excelの基本的な使い方、応用技を紹介

ユーザーフォームで閉じるボタンで閉じた時の動作を制御する


ユーザーフォームで閉じるボタンで閉じた時の動作を制御する



ユーザーフォームの閉じるボタンで閉じられなくするには以下の様にします。
該当のユーザーフォームモジュールに以下の様に入力します。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        MsgBox "閉じるボタンが押されました"
        Cancel = True
    End If
End Sub

ただし、閉じるボタン以外(VBA等)で閉じられる様にして置かないと永久に閉じることが出来なくなります。

一例として、CommandButton1を「閉じる」というボタンを用意し、以下の一文を追記するという方法があります。

Private Sub CommandButton1_Click()
    Unload UserForm1
End Sub


ユーザーフォームで閉じるボタンで閉じた時の動作を制御する







エクセルVBAテクニック集トップ