Scrollbar不会在Worksheet_Activate（）

Question

我在代码中有一个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”来破解它，但是我正在避免问题，而不是修复它。