スキルアップ・問題解決なら、モーグにおまかせ！

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

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> vbFormCode Then
        MsgBox "［×］ボタンは使えません"
        Cancel = 1
    End If
End Sub