自动保存Personal.xls

Question

我在Windows 7专业版安装程序上使用Excel 2003。在我的Personal.xls文件中，我编译了从不同地方获取的代码/公式片段，以便在使用Excel时随时可用。它们包含许多易失性函数，如cell()、rand()、today()等。因此，当我关闭Excel时，它会询问我是否要保存Personal.xls。

我想让我的Personal.xls保持原样，同时以某种方式禁用弹出窗口。无论哪种方式，我都可以保存，而不是保存，因为我不会更改Personal.xls。

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

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

但它似乎不起作用。我尝试了一些变体，包括.Save和.Saved=True，也尝试了交替使用ThisWorkbook.，Me.和Workbooks("PERSONAL.xls")。

我还尝试在我的Personal.xls viz中禁用计算。

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

这也不能解决问题。最后，在将计算模式改为手动后，我尝试做了一个'ThisWorkbook.Save‘，但这也没有改变任何事情。

我是不是漏掉了什么？任何建议都将不胜感激。提前感谢！

Answer 1

您需要：

Me.Save

在您的工作簿BeforeClose事件中。

Answer 2

我不确定这是否对你有帮助，但我已经尝试过了，我可以节省..请不要投反对票，这对你的一方是有效的。

我只是将取消作为布尔值删除

Private Sub Workbook_BeforeClose()
ThisWorkbook.Save
End Sub

Answer 3

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close savechanges:=True
End Sub

对于我想要做的事情，我实际上使用的是savechanges:=False。两种方式都奏效了。