ユーザーフォームの×印を無効にするには、QueryCloseイベントを
　使用します。

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

    If CloseMode <> vbFormCode Then
        MsgBox "［×］ボタンは使えません"
        Cancel = 1
    End If
    
End Sub