[464.xls]



' [mjSumple] のコード
'■■ システム終了前確認（「閉じる」を使用不可にする） ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
             
    'フォームの表示
    UserForm1.Show

End Sub



' [UserForm1] のコード

Private Sub cmdClose_Click()
    
Dim intRet As Integer
    
    intRet = MsgBox("システムを終了してよろしいですか？", vbOKCancel + vbSystemModal, "終了確認")
    
    If intRet = vbOK Then
        Unload UserForm1
    End If
    
End Sub



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If CloseMode = 0 Then
        intRet = MsgBox("Xボタンでは終了できません。[システム終了]をクリックして下さい", vbOKOnly + vbCritical, "エラー")
        Cancel = 1
    End If

End Sub