Turn off Horizontal & Vertical Scroll Bars on 'One' Worksheet only

R

robertguy

Board Regular
Joined
May 1, 2008
Messages
121
Hi,

can anyone advise me if it is possible to turn off the Horizonatal and the Vertical scroll bars on one worksheet only, because I have tried turning them off on the work sheet I require them to be turned off but it also applies to the other worksheets in my workbook.

I would be most gratful for any assistance in this matter

Many thanks in advance

Rob

Excel Version 2003
 

Excel Facts

Last used cell?
Press Ctrl+End to move to what Excel thinks is the last used cell.
Sort by date Sort by votes
Don’t think you can necessarily “turn them off” for a single sheet, but you can restrict scrolling on a sheet by sheet basis.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:eek:ffice:eek:ffice" /><o:p> </o:p>
Right click the worksheet tab, select “View Code”. This will open the VB editor. On the left you should see a window titled “Properties” and the name of the worksheet (if not, press F4 to open it).
<o:p> </o:p>
On of the properties of the worksheet is ScrollArea. Try making this property:
$A$1:$F$10
<o:p> </o:p>
Then close the VBE and return to your worksheet, you should now find that you can only navigate cells in the range A1:F10 and the scroll bars will not do anything.
 
Upvote 0
you can do it using the sheet activate events. you may want to extend it to cover workbook activate etc but this will show the gist of it
Code: 
Private Sub Worksheet_Activate()
With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
    End With
End Sub

Private Sub Worksheet_Deactivate()
With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
    End With
End Sub
 
Upvote 0
One more example:

You can use this code to define the Locking of scroll area on whichever worksheets just by changing the name of the sheet in the code. The below code works for Sheet1.

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

and to remove the lock:

Sheets("Sheet1").ScrollArea = "A1:IV65536"
 
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Question
Turn off sheet tabs & export data . Help me!
Replies
0
Views
363
Mark Milan
M
S
  • Question
Need code that adds multiple new rows to table to include a check box in column "L" for each new row
Replies
0
Views
315
sspatriots
S
J
  • Question
Turning off calculations not preventing hanging
Replies
4
Views
651
Fluff
Fluff
R
  • Solved
Macro enabled Workbook - Worksheet doesn't scroll down, but scroll bars do
Replies
1
Views
2K
RogerC
R
A
  • Solved
Calendar form cancel button passing data to worksheet
Replies
7
Views
384
AndyEd
A

Forum statistics

Threads
1,214,641
Messages
6,120,685
Members
448,977
Latest member
dbonilla0331

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top