フォームのXボタンを効かなくする

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        MsgBox "[×]ボタンでは閉じられません。", 48
        Cancel = True
    End If
End Sub

ネタ元

• http://officetanaka.net/excel/vba/tips/tips18.htm