停止滚动条调整大小

Question

我的VBA-Code有一点美容错误，我想纠正。 我的代码所做的是点击一些工作表的某些列被隐藏而其他列被显示。 问题是，虽然这些列正在改变，滚动条也是如此。它似乎调整了几次，直到该过程完成。

有没有办法阻止它？

以下是我的代码的一个小例子：

Application.ScreenUpdating = False
Sheets("MySheet").Range("B:F").Columns.Hidden = True
Sheets("MySheet").Range("H:M").Columns.Hidden = False
Application.ScreenUpdating = True

当然，我已经在互联网和Stackoverflow上搜索了解决方案，但没有任何方法可以解决。

问候， 帧

Answer 1

你可以这样试试吗：

With ActiveWindow 
    .DisplayHorizontalScrollBar = False 'True 
    .DisplayVerticalScrollBar = False 'True 
End With 

它只会隐藏它。关于调整大小，我认为你无法改变它。