フォームに配置したいずれかのボタンを必ずクリックさせて処理をさせたいとき,メニューバーの閉じるボタンでフォームを終了させたくない場合は,閉じる前に発生するイベントQueryCloseでCancelさせます。
1 2 3 4 5 6 7 |
Private Sub UserForm_QueryClose(Cancel As Integer, _ CloseMode As Integer) '[x]ボタンクリックしても閉じないようにする If CloseMode = vbFormControlMenu Then Cancel = True End Sub |