Excel VBA正在阻止功能区

我制作了一个.xlam文件，其中包含一些宏。我将这些宏用作功能区中的按钮。 大多数宏正在打开其他Excel工作表。但每当我使用该宏的功能区被阻止时，我不能使用这些选项卡中的任何选项卡或按钮

有人知道为什么会这样吗？这是我在功能区中作为宏添加的代码示例

Sub OpenBureauplanning()

    Application.ScreenUpdating = False

    Dim Path As String
    Path = "J:\Planning\Bureauplanning\"

    Dim openfile As String
    openfile = Path & "Bureauplanning.xlsm"

    Workbooks.Open (openfile)

    Application.ScreenUpdating = True

End Sub

在戴的回复之后。我删除了“application.screenupdate”部分，然后它就可以正常工作了

在另一段代码中，我使用一个表单来确定需要打开哪个文件。我也在功能区中使用该代码

代码是这样的：

Sub OpenProjectplanning()
Open_projectplanning.Show
End Sub

运行此代码时，将打开这些表单。在此表单中，人们从需要打开的文件中填写项目编号

按下“开启”按钮时，以下代码开始：

Private Sub CommandButton1_Click()

Dim Path As String
    Path = "J:\Planning\Projecten\"

Dim File As String
File = TextBox1.Text

Dim openfile As String
    openfile = Path & File & ".xlsm"

    Workbooks.Open (openfile)

Unload Me

End Sub

打开项目文件时，此代码将在打开时自动运行：

Private Sub Workbook_Open()
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.DisplayStatusBar = True
ThisWorkbook.Worksheets("Planning").Activate

End Sub

---

运行这些代码后，功能区将被阻止。

您所说的“阻止”功能区是什么意思？它在视觉上是模糊的还是只是冻结了用户界面？在宏中使用VBA调试器时会发生什么？您是否看到任何运行时错误发生？我怀疑

应用程序。屏幕更新

会导致Excel UI没有响应（正如它的本意），但

工作簿中发生错误。打开

会导致跳过

屏幕更新=True

。尝试添加一个

On Error GoTo…

语句，该语句将确保在

OpenBureauplanning

返回之前始终设置

Application.ScreenUpdate=True

。@Dai运行code@Dai如果我删除application.screen更新，它仍然会发生