VBA 中怎么设置关闭窗体同时关闭EXCEl，代码应该怎么写，谢谢了

2024-11-14 09:12:43

推荐回答（5个）

回答1：

1、首先打开需要编辑的Excel表格，右键单击工作表选择打开“查看代码”。

2、然后在弹出来的窗口中点击打开“通用”。选择Terminate 事件。

3、然后在弹出来的窗口中点击输入下方的代码，

Private Sub UserForm_Terminate()

ThisWorkbook.Saved = True

Application.Quit

End Sub

4、然后运行程序，这样就可以设置关闭窗体同时关闭EXCEl了。

回答2：

1、可以能过窗体的QueryClose事件设置，具体代码如下：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Close True
End Sub

2、窗体的QueryClose事件可以在点击窗体右上角的关闭按钮时触发。

3、ThisWorkbook表示当前代码所在的工作簿。

4、Close是关闭的方法。

5、 True是指关闭时保存此工作簿，如不想保存可改为FLASE。

回答3：

您好，

以下代码请放到用户窗体的 Terminate 事件中：

Private Sub UserForm_Terminate()
    ThisWorkbook.Saved = True
    Application.Quit
End Sub

以上代码中的 “ThisWorkbook.Saved = True” 语句可以防止在关闭 Excel 时弹出形如下面的对话框：

这个请视具体情况自行修改。

回答4：

如果工作簿打开后就关闭，建议你再次打开时先禁用宏，然后修改Wordbook open事件。估计你在这个事件中设置了

回答5：

Unload me        '关闭窗体
Application.Quit    '关闭Excel