How do I stop a user scrolling across?

[69liz]

Hi!

How do I restrict the visible area of a spreadsheet? I have a spreadsheet and I don;t want the user to be able to scroll across into the other columns or down to the other rows? Can I do this?

Thanks

Liz

 

[VoG]

You can do this with a macro - if you change its name to Autpen it will run automatically when the workbook is opened. It will only prevent scrolling, not viewing.

Sub RestrictScrollArea()
    With ThisWorkbook.Worksheets("Sheet1")
        .ScrollArea = "A1:D4"
    End With
End Sub

Change range to suit.

 

[DominicB]

Good evening 69liz

Something like this :

Private Sub Workbook_Open()
Sheets("Sheet1").ScrollArea = ("A1:H10")
End Sub

The above code will restrict the user to the range A1:H10. Unfortunately this setting isn't saved with the file so this code would need running every time the file is opened - hence the Workbook_Open routine. It needs copying into the ThisWorkbook module of the VBE.

HTH

DominicB

 

[69liz]

Many thanks guys!