ユーザーフォームの[閉じる]ボタンを無効化する

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
　Cancel = True
End Sub