窗体死循环解决

Private Sub CommandButton5_Click() '正常关闭

  Flag = False

  UserForm2.Hide

End Sub

Private Sub CommandButton6_Click() '特别关闭

    UserForm2.Hide

End Sub