尽管将计算设置为手动，但在工作簿的开头不会禁用计算

Question

亲爱的社区成员，

我们已通过以下宏在工作簿中禁用了计算：

Private Sub Workbook_Open()

ActiveSheet.EnableCalculation = False

If Application.Calculation <> xlCalculationManual Then
Application.Calculation = xlManual

Else
End If
End Sub

---

但是，即使在打开工作簿时，它仍会计算公式并需要一些时间才能打开。理想情况下，我希望在不进行任何初始计算的情况下打开工作簿。 我尝试了下面的代码，但没有得到满意的结果。

是否有一种理想的方式来禁用所有计算？

Private Sub Workbook_Open()


ActiveSheet.EnableCalculation = False

Application.EnableEvents = False
Application.EnableEvents = True

If Application.Calculation <> xlCalculationManual Then
Application.Calculation = xlManual

Else
End If
End Sub

---

非常感谢您的帮助。