首页 文章

VBA宏中的Userform正在关闭整个excel文件

提问于
浏览
0

我创建了一个包含多个函数的UserForm .

打开Excel文件时打开表单,但是如果我尝试将Excel文件关闭在一起关闭表单 . 另外,我无法打开这个Excel的VBA(包含表单),所以我做的(那真的是dum)是打开另一个Excel,按Alt F11打开宏环境然后我可以打开我的使用UserForm的Excel文件 .

我认为我的问题在于这个特定的代码:

Private Sub UserForm_Terminate()
    'Application.Visible = True
    ActiveWorkbook.Saved = True
    Application.Quit
End Sub

谁能猜到这里有什么问题?

2 回答

  • 0

    如果您只想关闭Userform,请使用 Unload Me 而不是 Application.Quit .

  • 0

    你需要 Show your UserForm as modeless

    UserForm.Show False
    

    通过这种方式,您可以在UF后面导航,甚至可以直接打开VBA .

    很明显,如果您在退出UF时关闭主机应用程序,那么其他任何事情都会变得更难!

    所以这可能是一个更好的解决方案:

    Private Sub UserForm_Terminate()
        ActiveWorkbook.Saved = True
        'ThisWorkbook.Save
    
    
        If MsgBox("Do you want to close Excel?", vbOKCancel + vbQuestion, "Exit Excel?") <> vbOK Then
            'Do nothing
        Else
            Application.Quit
        End If
    End Sub
    

    我不知道你的行 ActiveWorkbook.Saved = True 是什么,如果要保存或只是在没有消息的情况下退出,因为你没有保存文件 .

相关问题