自动保存Personal.xls

我在Windows 7 Professional安装程序上使用Excel 2003。 在我的Personal.xls文件中,我已经编译了我从不同地方获得的代码/公式的片段,以便在使用Excel时可供参考。 这些包含一些volatile函数,比如cell()rand()today()等。因此,当我closuresExcel时,它询问我是否要保存Personal.xls。

我想保持我的Personal.xls,因为它,但以某种方式禁用popup。 我很好,保存,而不是保存,因为我不会改变Personal.xls。

我已经在Workbook_BeforeClose部分的personal.xls中尝试了以下代码

 Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Save End Sub 

但似乎没有工作。 我尝试了一些变化,包括.Save.Saved=True ,并试图交替使用ThisWorkbook.Me.Workbooks("PERSONAL.xls") 。 但是,Excel仍然要求我保存Personal.xls

我也试图在我的Personal.xls中禁用计算。

 Private Sub Workbook_Open() For Each ws In ThisWorkbook.Worksheets ws.EnableCalculation = False Next End Sub 

这也不能解决问题。 最后,我尝试在将计算模式更改为手动之后执行“ThisWorkbook.Save”,但这也不会改变任何内容。

我在这里错过了什么? 任何意见,将不胜感激。 提前致谢!

你要:

 Me.Save 

在您的工作簿BeforeClose事件。

我不知道这是否会帮助你,但我已经尝试运行,我可以保存..请不要投票它为你的身边工作。

我只是删除取消为布尔值

 Private Sub Workbook_BeforeClose() ThisWorkbook.Save End Sub