locking the zoom on a page?

Hi,

You could set the Range which would stop scrolling. Need to add the below and close and re-open file to work.

Code goes into thisworkbook (see link below for instructions)

Private Sub Workbook_Open()
With Sheets("Sheet1")
.Activate
.ScrollArea = "A1:E30"  'Change to your range
End With

ActiveWindow.DisplayHeadings = False
End Sub

Not sure about the Zoom. I assume it would be a Event macro on the sheet

VBA Noob

Originally Posted by shortman_alan

i understand how this would work but where would i place it in the the vba editor as it is a seperate sub function so it will not fit in with the rest of the code

Hi,

try any of

Private Sub Workbook_Activate() 
    With ActiveWindow 
        .DisplayHeadings = False 
        .DisplayHorizontalScrollBar = False 
        .DisplayVerticalScrollBar = False 
        .DisplayWorkbookTabs = False 
    End With

this will allow the user to scroll other workbooks that are open.

If for a specific sheet then in the sheet when activated.

Private Sub Worksheet_Activate()

When leaving the sheet/book you need to make the settings True


Hope this helps.
---
hth
---