!!!Excel VBA ユーザフォームを閉じさせない
 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     If isRunning And CloseMode = vbFormControlMenu Then
         If MsgBox("処理中です。本当に終了しますか？", vbQuestion Or vbYesNo) <> vbYes Then
             Cancel = 1
         End If
     End If
 End Sub
 
----
{{include_html banner_html, "!Excel"}}