To restrict scrolling to a contiguous range try:-
ActiveSheet.ScrollArea = "A5:J10"
(To unrestrict after restricting use empty quotation marks)

To restrict scrolling to a noncontiguous range:-
1) First unlock the cells you want to allow access to.
2) Set the worksheet EnableSelection property to
xlUnlockedCells.
3) Protect the worksheet.

For both of the above options, you'll have to reset these
conditions each time you open the workbook. To do so
programmatically use the Workbook_Open event in the
ThisWorkbook module:-

Private Sub Workbook_Open()
Sheets("Sheet1").ScrollArea = "A5:J10"
End Sub

Private Sub Workbook_Open()
Sheets("Sheet1").EnableSelection = xlUnlockedCells
End Sub

Minimal testing done.

Regards,
Greg

-----Original Message-----
i still have same the question :

how to lock the scrolling / movement of a cursor from a
selected part, it
really annoying me......


.