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?

 

[RoryA]

You'll need to set the scrollarea then. Note that you need to do this every time the workbook opens.

 

[firstWeMeet]

Then try like this

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

I just notice from this code, now I cant scroll it by the mouse (sheet1), the sheet2 is yes but the scrollbar is missing, can we make the scrollbar visible for sheet2?

 

[VoG]

You need this in Sheet1's code module

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

 

[firstWeMeet]

Thanks - Now its working.

 

[firstWeMeet]

Except in un-checking the the headings in View tab, how could I remove Headings using VB code?

 

[VoG]

Try

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

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

 

[firstWeMeet]

Last Question :D
a code for removing sheet name below.

 

[VoG]

Try

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

Private Sub Worksheet_Deactivate()
With ActiveWindow
    .DisplayVerticalScrollBar = True
    .DisplayHeadings = True
    .DisplayWorkbookTabs = True
End With
End Sub

To move from Sheet1 you will need to use CTRL + Pg Down