エクセルVBAを使ってワークシートの水平スクロールバーを非表示にする方法

2020年7月13日2024年9月16日

エクセル画面右下には左右に画面移動するための水平スクロールバーが必ず表示されていますが、ユーザーフォームなどを使ってエクセル自動化させた時には、意図しないスクロールによってエラーになってしまった事ありませんか？

そこで思い切って水平スクロールバーを非表示にして操作できないようにしましょう。

水平スクロールバーを非表示

シート内を左右に移動できる「水平スクロールバー」は上記画面で「⑤」の部分です。

今回はこの水平スクロールバー自体を非表示にして、意図しないセルの移動を防ぐことができて、さらにワークシートのスペースを広げることができます。

DisplayHorizontalScrollBarプロパティとActiveWindowを組み合わせると、現在表示している水平スクロールバーを表示したり非表示にしたりすることができるようになります。

では実際にここでは、ユーザーフォームに配置したコマンドボタンに水平スクロールバーを表示・非表示にするVBAコードを書いていきましょう。

水平スクロールバーを非表示にするには、DisplayHorizontalScrollBarをFalseに指定することでできるようになります。

水平スクロールバーを非表示にするVBA

Private Sub CommandButton1_Click()
With ActiveWindow
.DisplayHorizontalScrollBar = False
End With
End Sub

解説

これで、コマンドボタン1が押されたら水平スクロールバーが非表示になります。

水平スクロールバーを非表示にできたら、再表示できないと不都合なので、DisplayHorizontalScrollBarをTrueに指定することでできるようになります。

水平スクロールバーを表示するVBA

Private Sub CommandButton1_Click()
With ActiveWindow
.DisplayHorizontalScrollBar = True
End With
End Sub

解説

非表示のFalseを表示のTrueに変更するだけで完成するのとても簡単です。

この方法でも問題ないのですが、コマンドボタンを2つ用意しなくてはいけないのですが、ちょっと工夫すると1つのコマンドボタンで非表示も再表示もできるんですよ！

なんでもかんでもできるわけではないのですが、この種の表示・非表示の切り替えには、FalseやTrueの代わりにNot演算子を使用するとできるようになります。

水平スクロールバーの表示／非表示を切り替えVBA

Private Sub CommandButton1_Click()
With ActiveWindow
.DisplayHorizontalScrollBar = Not .DisplayHorizontalScrollBar
End With
End Sub

解説

作成したエクセルは様々なスタッフが使う為に、想定外の操作をされてしまいエラーを引き起こすことがあるので、ユーザーフォーム以外の操作をできないように工夫しています。

ボタン1つで表示を切り替えたり元に戻したりできると便利なので、ほかの表示方法も知っていて損はないと思いますよ！