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。