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