ExcelVBAのフォームのxボタンで閉じなくさせる方法

QueryCloseイベントを捕まえる

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