Excel - 在打开时停止计算以防止循环引用

Question

我有一个包含大量内置循环引用的大型电子表格。我已经内置了 VBA 代码以在打开时设置为手动和迭代计算，并在设置为迭代计算后强制在工作簿打开时进行计算。但是，似乎工作簿在打开时甚至在运行此 VBA 代码之前就尝试计算，因此，如果工作簿已设置为没有迭代计算的自动计算，它会运行工作簿，然后由于循环引用而崩溃。

我知道我可以将自己的应用程序设置设置为始终进行迭代计算，但是此工作簿与可能没有相同应用程序设置的其他人共享。有没有办法在打开时停止计算，直到代码将应用程序设置为迭代计算。

谢谢。

Answer 1

在一个空白的 .xlsm 文件中，在工作簿打开事件中，输入此代码

   Private Sub Workbook_Open()
       Application.calculation = xlCalculationManual
       ' Add code to open the real workbook
       ' ---------
   End Sub

---

由于计算将由最后打开的工作簿是手动还是自动驱动，因此必须将上述代码放入调用者工作簿中（如上所示）。此调用者工作簿在打开时会先禁用计算，然后拉起您的工作簿，保证具有手动计算模式。

此外，在所需的工作簿（具有循环引用的工作簿）中，OnOpen 事件应触发调用方工作簿的关闭而不保存。

这样流程对用户是透明的，他/她只打开 Caller book。