运行刷新宏时如何使excel保持“无响应”状态？

Question

通过研究，似乎我所需要做的就是使用它？但是我的屏幕在刷新时仍然会出错。我只希望运行此宏时屏幕不改变或什么也不做。

Application.ScreenUpdating = False

这里只是我在此宏中运行的一小段代码供参考：

Sub Refresh_Data()

Box.Show

Application.Cursor = xlWait
Application.ScreenUpdating = False

Workbooks("IOM Denial.xlsm").RefreshAll
Workbooks("IOM Denial.xlsm").Worksheets("Home").Activate

Application.Cursor = xlDefault
Application.ScreenUpdating = True

Unload Box

End Sub

Answer 1

您正在以模态形式显示该框，Excel在等待除Box.Show之前的任何操作之前，都将等待您的答复。如果使用小叉号关闭Box，您的代码应继续运行。

您可以通过将行更改为]来在代码中解决此问题>

Box.Show False '<-- runs non-modal
来自Microsfot的信息：https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/showmodal-property