使VBA窗口右上角的关闭按钮失效

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'使关闭按钮失效，用unload语句时closemode＝1
If CloseMode <> 1 Then Cancel = True

'Else Application.Quit

End Sub

Private Sub CommandButton1_Click()
    CloseMode = 1
    Unload Me
End Sub