Is there a way to change the position of Userform to a pre
determined location on a spread sheet?

I want my userform to cove up a range of cells so the user
can't see what's underneath until it is closed. Which
would then beg the question of, can you stop a user from
moving the userform?

Any thoughts
Pete

Pete,

You might find my Form Positioner workbook useful. See
http://www.cpearson.com/excel/FormPosition.htm .


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Pete" wrote in message
...
Is there a way to change the position of Userform to a pre
determined location on a spread sheet?

I want my userform to cove up a range of cells so the user
can't see what's underneath until it is closed. Which
would then beg the question of, can you stop a user from
moving the userform?

Any thoughts
Pete

Hi Chip,

I had successfully used your Form Positioner workbook on an freeware
Excel I wrote, using Excel 2000. But, when people load my application
into Excel 2003 it runs into compile problems, particularly with the
statement:

PS = PositionForm(WhatForm:=frmInput, AnchorRange:=ActiveCell,
HorizOrientation:=HO, VertOrientation:=VO)

It errors out with a "Type Mismatch" error.

The odd thing is that I don't get this error with the other forms in my
application that are called with the exactly the same code. The only
difference is the specific user form I'm calling up. Do you know how I
can fix this for Excel 2003? Thanks.

Bob Kaku


Chip Pearson wrote:
Pete,

You might find my Form Positioner workbook useful. See
http://www.cpearson.com/excel/FormPosition.htm .


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Pete" wrote in message
...
Is there a way to change the position of Userform to a pre
determined location on a spread sheet?

I want my userform to cove up a range of cells so the user
can't see what's underneath until it is closed. Which
would then beg the question of, can you stop a user from
moving the userform?

Any thoughts
Pete

As far as locking the position is concerned, this old post of mine may help:

http://google.com/groups?selm=%23yhr...ngp04&rnum= 1

--

Vasant

"Pete" wrote in message
...
Is there a way to change the position of Userform to a pre
determined location on a spread sheet?

I want my userform to cove up a range of cells so the user
can't see what's underneath until it is closed. Which
would then beg the question of, can you stop a user from
moving the userform?

Any thoughts
Pete

Hi Pete;
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long _
, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long _
, ByVal bRevert As Long) As Long

Private Sub UserForm_Activate()
Move 100, 100
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(GetActiveWindow(), False)
RemoveMenu hSysMenu, 1, &H400
DrawMenuBar hSysMenu
End Sub

MP

"Pete" a écrit dans le message de
...
Is there a way to change the position of Userform to a pre
determined location on a spread sheet?

I want my userform to cove up a range of cells so the user
can't see what's underneath until it is closed. Which
would then beg the question of, can you stop a user from
moving the userform?

Any thoughts
Pete