在VS中用vb.net开发Excel外接程序，无法关闭Excel屏幕更新

cm96999

在VS中用vb.net开发Excel外接程序，无法关闭Excel屏幕更新。

调试时，在Excel中点击“增加行高”按钮（代码如下）时，按钮点下去就一直处于按下状态（见下图），不能恢复，整个Excel就无法操作，点击表格任何地方都没有反应，点击Excel选项卡和按钮也没有反应。


如果 ExcelApp.ScreenUpdating = False这句禁用，点击按钮就正常， 程序也可用了。

请高手指教是怎么回事。

Module 公共模块
    '以下两种用法都试过
    'Public ExcelApp As Application = Globals.ThisAddIn.Application
    Public ExcelApp As Application = GetObject(, "Excel.Application")

End Module



Private Sub 增加行高_Click(sender As Object, e As RibbonControlEventArgs) Handles 增加行高.Click
     '以下两种用法都试过
     'Globals.ThisAddIn.Application.ScreenUpdating = False
      ExcelApp.ScreenUpdating = False

      ……
end sub

shenjianrong163

有这个语句没有?ExcelApp.ScreenUpdating = True

临沂-枸杞

要么是你忘了给他恢复了,要么是你下面语句出错了,没执行,加个try,不管执行成功与否都给他恢复回来

WANT-T

临沂-枸杞 发表于 2023-5-6 08:09
要么是你忘了给他恢复了,要么是你下面语句出错了,没执行,加个try,不管执行成功与否都给他恢复回来

楼上正解，祝工作顺利，天天开心，好人一生平安！

cm96999

shenjianrong163 发表于 2023-5-5 15:30
有这个语句没有?ExcelApp.ScreenUpdating = True

谢谢，结尾时是没有这句，加了这句就好了。在VBA中结尾不加这句没问题，在VB.net中没有就不行。

cm96999

WANT-T 发表于 2023-5-6 11:41
楼上正解，祝工作顺利，天天开心，好人一生平安！

谢谢，结尾时是没有这句，加了这句就好了。在VBA中结尾不加这句没问题，在VB.net中没有就不行。

cm96999

临沂-枸杞 发表于 2023-5-6 08:09
要么是你忘了给他恢复了,要么是你下面语句出错了,没执行,加个try,不管执行成功与否都给他恢复回来

谢谢，结尾时是没有这句，加了这句就好了。在VBA中结尾不加这句没问题，在VB.net中没有就不行。