Do While Application.CalculationState xlDone　' 等待直到计算结束Loop

将陷入死循环，中断代码后查看CalculationState，发现是xlPending，于是改为判断是否是xlPending，但发现有时计算确实没有结束。再查EXCEL帮助，发现还有一个有关自动计算的设置：CalculationInterruptKey 属性，于是怀疑计算过程被用户中断了，那么是否可以将CalculationInterruptKey 属性设置为xlNokey来阻止用户中断计算过程：

preStat = Application.CalculationInterruptKey    ' 保留原来状态Application.CalculationInterruptKey = xlNoKey   ' 阻止用户中断计算过程Do While Application.CalculationState xlDone　' 等待直到计算结束 LoopApplication.CalculationInterruptKey = preStat    ' 恢复原来状态

不知上述代码能否实现标题的要求？请高手指点。