Limiting the viewed area?

J

Juan

I am making a simple mortgage program and I would like to limit the are
viewed. I have tried deleting rows/columns and I have tried to hid
them. I have only had partial luck with the columns. I have seen thi
done on other programs, so I know that it is possible. Thanks for th
help
 
B

Bob Phillips

Juan,

You cannot delete the rows or columns, but you should be able to hide them
without any problem.

What are you experiencing?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
R

Ragdyer

Select the *entire* column that is past (right of) what you wish to be the
end of the sheet and:

<Ctrl> <shift> <RightArrow>
This should select everything out to column IV.
Right click in the selection and choose <Hide>.

Do the same for your rows, using the <DownArrow>.

If data is somewhere within your selection, you may have to repeat hitting
the arrow keys until you see column IV and row 65536.
--

HTH,

RD
==============================================
Please keep all correspondence within the Group, so all may benefit!
==============================================
 
J

Juan

Thanks to both of you for the quick response. The problem I hope t
correct is to not allow anything to be seen after I hide the rows an
columns. If I use the arrow keys I can still go into an area that i
colored gray. Whereas, I'd like that area to be completel
inaccessible all together
 
G

Gord Dibben

Juan

You may want to try setting the Scroll Area.

This setting will not remain after closing the file.
Place a code line in the Workbook open event to set it
each time when you open the workbook

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

Adjust to your sheetname and range.

Gord Dibben Excel MVP
 
L

L. Howard Kittle

Hi Juan,
Adjust the range to suit and run this sub in the worksheet module. Run the
second line of code to repeal.

Sub LimitScroll()
Worksheets(1).ScrollArea = "a1:f10"
'Worksheets(1).ScrollArea = ""
End Sub

HTH
Regards,
Howard
 
Top