Scroll lock not working properly

Copper Contributor

I'm trying to add in a scroll lock so that users of a spreadsheet cannot scroll down (or across) when using it.

 

I've added the following code (although the same issue occurs if I try and lock it using the sheet properties dialog box manually):

 

Worksheets("FEA").ScrollArea = "A1:A1"

 

This seems to lock the horizontal scrolling as intended, but the vertical scrolling still allows scrolling down to row 86.

 

If i change the lower limit to something greater than 1, i.e:

 

Worksheets("FEA").ScrollArea = "A1:A100"

 

Then it works properly. But anything lower than 86, and it still allows scrolling down to row 86...

 

The window naturally cuts off at row 41.

 

VBA.PNG

 

 

 

 

 

 

This is the code that I run.


Pre-scroll.PNG

 

 

 

 

 

 

 

 

 

 

This is the window before scrolling.

 

Post-scroll.png

 

This is where it allows me to scroll to, despite the above code being run.

 

 

 

0 Replies