Scroll Area Not Working

[Helix242]

Hi,

I am trying to activate a scroll area, but it just isn't working. The names are exactly the same. I have 2 sheets, the second one is called CONTACT and this is the one I am trying to lock. Although when I use this code it just doesn't lock. Any help would be appreciated.

Many thanks

Private Sub Workbook_Open()
Worksheets("CONTACT").ScrollArea = "A1:G1000"
End Sub

 

[RoryA]

Welcome to the forum.

Is that code in the ThisWorkbook module of your workbook?

Also, do you mean you can still scroll column A off screen after running that code yourself?

 

[Helix242]

Hi Rory,

Thank you.

A bit of a novice here, so I'll try to answer as best I can! I have several spreadsheets open and I just want to lock the scroll area in this one. The code is in the (VBA) View Code section of the Developer Tab, for this spreadsheet. I want to lock any cells beyond column G and Row 1000. I can still select the cells after I enter this code. The only way I can lock it is to manually enter the A1:G1000 in the Scroll Area section, but have to do that every time I open the sheet. So the code just isn't locking any area. I am unsure if I have to have a certain setting activated??

 

[RoryA]

That code must go into the ThisWorkbook module of the workbook in question or it won't run when the workbook opens.

 

[Helix242]

Hi Rory,

Thank you for the information, but I am a bit unsure what you mean. Where do I access ThisWorkbook module in the View Code section? Sorry for being stupid!

 

[Helix242]

Hi Rory,

Sorry, I found it!! Thank you SOOOO much!!

Many thanks

 

[Helix242]

It is now working

 

[RoryA]

You should see the Project Explorer window in the top left of your VB Editor, which shows you the open workbooks and all their components. You need to double click on the ThisWorkbook object for the relevant workbook.

<img src="https://ruirlw.dm2302.livefilestore.com/y3mF8uQGIgIQiKk74fFtn0t5kTDldhZWtxcS7Imjoapy3_pogLcztvP-htyNF88-_pWG55tqGH8XY9QDiQKN3aBDy0OOs6sPRHdXMnSe2nabQzBNXgrlOVuVe3dF6dsBXCiCOAn61u85D3SKQ55TMzlzjDS29Hx6FmJiXnXDguMZrU?width=330&height=361&cropmode=none" width="330" height="361" />

Edit: aha - you beat me to it. Good work!