ユーザーフォームの閉じるボタンで閉じられなくするには以下の様にします。
該当のユーザーフォームモジュールに以下の様に入力します。
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "閉じるボタンが押されました"
Cancel = True
End If
End Sub
ただし、閉じるボタン以外(VBA等)で閉じられる様にして置かないと永久に閉じることが出来なくなります。
一例として、CommandButton1を「閉じる」というボタンを用意し、以下の一文を追記するという方法があります。
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub