How to disable or remove Scroll bar located at right side of Excel?

[firstWeMeet]

How to disable or remove Scroll bar located at right side of Excel?

 

[VoG]

Try

ActiveWindow.DisplayVerticalScrollBar = False

 

[RoryA]

You can also turn it off in the Options. For 2007 and later it's in the Advanced section; for 2003 and prior it's in the View tab.

 

[firstWeMeet]

Try

ActiveWindow.DisplayVerticalScrollBar = False

Hi, How can I apply it in VB? :D
If I choose in excel option all sheet will disable, I just want to disable some sheet not all.

 

[VoG]

As far as I know you cannot do that for individual sheets. You can restrict the scroll area for individual sheets:

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

 

[RoryA]

You could also use the activate event of the sheets to turn the scrollbar on and off.

 

[firstWeMeet]

What is the exact code for me to lock or disable or remove the scrollbar?
I cant make it. sorry.

 

[VoG]

Try like this in the sheet's code module (pinching Rory's idea )

Private Sub Worksheet_Activate()
ActiveWindow.DisplayVerticalScrollBar = False
End Sub

Private Sub Worksheet_Deactivate()
ActiveWindow.DisplayVerticalScrollBar = True
End Sub

 

[firstWeMeet]

Try like this in the sheet's code module (pinching Rory's idea )

Private Sub Worksheet_Activate()
ActiveWindow.DisplayVerticalScrollBar = False
End Sub

Private Sub Worksheet_Deactivate()
ActiveWindow.DisplayVerticalScrollBar = True
End Sub

I try this, :D but I can still scroll the sheet using my mouse scroller.

 

[VoG]

Then try like this

Private Sub Worksheet_Activate()
ActiveWindow.DisplayVerticalScrollBar = False
Me.ScrollArea = "A1:Z20"
End Sub