开启自动计算

Question

我正在使用Excel 2013，我们遇到设置为手动计算的随机Excel文件，重置为自动后它们似乎不会消失。

这些文件似乎保持自动，但在随机的一天，不同的Excel文件或相同的Excel将恢复为手动。我想在加载任何Excel文件时自动执行宏，或者只是程序将Excel设置为自动计算。

我尝试了以下宏：

Private Sub Auto_Open()
Application.Calculation = xlCalculationAutomatic

加载Excel时收到以下错误消息：

  

“运行时错误'1004'：对象'_Application'失败的方法'计算'

故障排除： Auto_Open宏在任何其他工作簿打开之前运行。因此，如果您记录希望Excel在默认Book1工作簿或从XLStart文件夹加载的工作簿上执行的操作，则重新启动Excel时Auto_Open宏将失败，因为宏在默认和启动工作簿打开之前运行

如果遇到这些限制，则必须按照本文下一节中的说明为Open事件创建VBA过程，而不是记录Auto_Open宏。

问题：有没有办法创建一个宏来将任何Excel文件重置为自动？我将宏存储在我的个人工作簿中，因为我希望宏将在我加载的任何Excel文件上执行。

Answer 1

我尝试了你所写的内容并且有效。

以防万一，这是我的代码：）

Private Sub auto_open()

    Application.Calculation = xlAutomatic

End Sub