All I want to show is my user form

Thespiv · Mar 4th, 2002, 11:27 AM

I have created a user form, and want to retrict access to any other cells in my workbook, I also don't want the user to be able to scroll down the infinate number of rows available below my form PLEASE HELP.

Thespiv · Mar 4th, 2002, 11:35 AM

keeping this on top cos i really need an answer!

Anne Troy · Mar 4th, 2002, 11:38 AM

Use Worksheet protection.

Select the cells you want to ALLOW entry into. Hit Format-Cells, Protection and remove the locked checkbox.
From the Tools menu, choose Protect Worksheet or Workbook.
Check out the help files.

GeorgeB · Mar 4th, 2002, 12:57 PM

To restrict the scroll area use this code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Me.ScrollArea = "H1:H50" ' change to suit
'To set back to normal use:

Me.ScrollArea = ""

End Sub

[ This Message was edited by: GeorgeB on 2002-03-04 11:59 ]

Mar 4th, 2002, 11:38 AM	#3
Anne Troy MrExcel MVP Join Date: Feb 2002 Location: Allentown, PA Posts: 2,512	Use Worksheet protection. Select the cells you want to ALLOW entry into. Hit Format-Cells, Protection and remove the locked checkbox. From the Tools menu, choose Protect Worksheet or Workbook. Check out the help files. __________________ ~Anne Troy

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 4th, 2002, 11:27 AM	#1
Thespiv New Member Join Date: Mar 2002 Posts: 31	I have created a user form, and want to retrict access to any other cells in my workbook, I also don't want the user to be able to scroll down the infinate number of rows available below my form PLEASE HELP.

Mar 4th, 2002, 11:35 AM	#2
Thespiv New Member Join Date: Mar 2002 Posts: 31	keeping this on top cos i really need an answer!

Mar 4th, 2002, 12:57 PM	#4
GeorgeB Board Regular Join Date: Feb 2002 Location: Las Vegas Nevada USA Posts: 240	To restrict the scroll area use this code. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Me.ScrollArea = "H1:H50" ' change to suit 'To set back to normal use: Me.ScrollArea = "" End Sub [ This Message was edited by: GeorgeB on 2002-03-04 11:59 ]