ScrollArea in Excel 2003

Question

I need to know how to keep the scrollarea settings to stay after I close the worksheet and another user opens the worksheet.

Steps I have Taken:

1. Alt+F11
2. Enter ScrollArea 1:213
3. Save

This will keep the scrollarea while I am in the worksheet. As soon as I close the worksheet and reopen it has cleared the scrollarea that I had applied.

Is there another way to keep the scrollarea setting or keep from having other users scroll past the data that is put into the worksheet?

Answer 1

You can select all rows from 214 to the bottom of the sheet, then select Format | Row | Hide, or right-click and select Hide from the popup menu, or set the row height to 0.

If you don't want users to be messing with it, you can protect the sheet. This is a two-step process:

1. Select all cells that the user should be able to modify.

Select Format | Cells...

Activate the Protection tab.

Clear the chec box "Locked"

Click OK. 2. Select Tools | Protection | Protect Sheet...

If you clear the check box that allows users to select locked cells, they will only be able to select the cells that you unlocked in step 1.

Click OK.

Optionally specify a password that will be needed to unprotect the sheet.

Answer 2

How do I hide all the rows below 213? Can I attach macros so that they keep this function with any person who opens the file?

Answer 3

Make sure that you copy the code that I posted into the ThisWorkbook module of your order form workbook.

Of course, it will only work if macros are enabled.

Another option would be to hide all rows below row 213.

Answer 4

That is a code I have been putting in but it does not save when I reopen the worksheet (file). I would need this scrollarea funtion to keep on the worksheet eachtime it is opened and it is opened by different users. Is there a way to do this? Macros? Something to keep it from clearing.

This is an order form for clients and I do not want them to scroll past the data that is on the screen.

Answer 5

You need to set the ScrollArea when the workbook is opened. Copy the following code into the ThisWorkbook module of the workbook, substituting the correct sheet name:

Private Sub Workbook_Open()

    Worksheets("Sheet1").ScrollArea = "$1:$213"

End Sub