VBA フォームの[×]ボタンで閉じられなくする

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        MsgBox "［閉じる］ボタンを使用してください"
        Cancel = True
    End If
End Sub　

ネタ元

www.moug.net