滚动条不会隐藏或移动Worksheet_Activate（）

我在Worksheet_Activate()的代码中有一个Worksheet_Activate()子表单，每次激活表单时都会调整表单的大小，并隐藏滚动条。 对于一些不可理解的原因，当我运行它作为另一个子的一部分（使用“ Sheets("MENU").Activate ”）“ ActiveWindow.DisplayVerticalScrollBar = False ”不起作用！ 如在，垂直滚动条保持可见。

更糟糕的是，当我在后面设置“ .width ”时，滚动条不会随之移动！ 所以我最终得到一个悬浮的滚动条20左右的应用程序窗口旁边的像素。

更糟糕的是，当我在代码中插入时，它可以正常工作。

我被困在这一个。

以下是相关的代码：

 Sub Worksheet_Activate() With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False ' <-- this guy right here... End With With Application .WindowState = xlNormal ' can't resize maximized! .Left = 100 ' as soon as I do this, things go sideways .Width = 570 .Top = 50 .Height = 230 End With End Sub 

我想也许这是代码执行速度太快的问题，所以我暂停了几次

 Application.Wait (Now + TimeValue("00:00:01")) 

但是这似乎没有帮助。

我可以通过在激活窗口之前在子文件中添加另一个“ ActiveWindow.DisplayVerticalScrollBar = False ”来解决这个问题，但是我避免了这个问题，而不是修复它。