如何在关闭excel时，不弹出是否保存的对话框

风中有

无论文件内容是否发生改变都不会弹出窗口提示是否保存对文件的修改。要vba代码，谢谢！

xsy我可以很好

Private Sub Workbook_BeforeClose(Cancel As Boolean) '关闭工作表事件
Application.DisplayAlerts = 0 '不提示保存本工作表
Application.Quit '关闭本工作表
End Sub

风中有

xsy我可以很好 发表于 2012-10-30 23:25
Private Sub Workbook_BeforeClose(Cancel As Boolean) '关闭工作表事件
Application.DisplayAlerts = 0 ' ...

还是有提示窗口 。我把上段代码放到了personal.xlsb内，没有效果。

xsy我可以很好

风中有 发表于 2012-10-31 00:11
还是有提示窗口 。我把上段代码放到了personal.xlsb内，没有效果。

你放错地方了
应该放在ThisWorkbook里

ngnndkkk

答：
这么长时间了，没什么人答复，猜测下。
1.用语句“Me.Saved=True”即可了吧
2.若用于其他工作簿（真实意图真是这样？若是，太不可思异了），那就要在个人宏工作簿中建立类模块，然后在该类模块中写上WorkbookBeforeClose事件，事件实体用语句“Wb.Saved=True”即可了吧

最后：前后发贴回贴内容让人无所适从！俺回贴也让你不知所云。

ggsmart

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Close savechanges:=True    '关闭且保存更改
  Me.Close savechanges:=False    '关闭不保存更改
End Sub


两句代码任选一句，放在thisworkbook中

QQ.H

ggsmart 发表于 2012-10-31 13:38
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Close savechanges:=True    '关闭且保存更 ...

为什么需要二次关闭才能关闭整个EXCEL表

milanvsmilan

关闭工作簿的话，应该将程序方在 thisworkbook中的