Private Sub Workbook_Open()

Sheets("Sheet1").ScrollArea = "A1:M100"

End Sub

ile kilitleyebilirsiniz, alanı daha küçük yada büyük olarak da ayarlayabilirsiniz
Tekrar serbest bırakmak icin

Private Sub Workbook_Open()

Sheets("Sheet1").ScrollArea = ""

End Sub

Bu kodlar sadece belli bir sayfa içi  isterseniz döngüye alıp tüm sayfaları kilitleyip acabilirsiniz
Yada aktif sayfanın açılma kodu olarak

ActiveWindow.DisplayHorizontalScrollBar = False

kodu da kullanılabilir, kodlari deneyemedim teorik