minimize a worksheet when form opens

[arey]

Hello all,

I have to questions...

1. I have a form that I setup to open when my excel db is opened. How do I get the excel db to minimize or hide so that only the form is open.

2. How to I add minimize and maximize buttons to the forms I have created?



Thanks,
T.

 

[shyrath]

For minimize buttons check out this:

http://www.oaltd.co.uk/Excel/Default.htm

For the window
I use this

Try this to hide the application and display the UserForm
[code]
Option Explicit

Sub ShowForm()
Application.Visible = False
UserForm1.Show
End Sub

'make dure you put this code into the UserForm Query_Close

Option Explicit

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub
[/code]

 

[arey]

thanks for replying.
Im just getting around to trying this.
Its not working for me and i think its because i forgot to mention that im new at vba.
So im not sure where to place the codes.

I this in General - showforms:

Sub ShowForm()
Application.Visible = False
frmGlobalInterface.Show
End Sub

I right clicked on the form and inserted a module and pasted this:

Option Explicit

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub


Can you tell me what I am doing wrong.

Thanks again.

 

[shyrath]

Add a button on your worksheet from the forms toolbar ( View - toolbars - forms ) then assign this macro (insert as a normal module)

Option Explicit

Sub ShowForm()
Application.Visible = False
UserForm1.Show
End Sub

Then, in your form just doubleclick anywhere and add this

Option Explicit

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub

If your stuck, send me a copy of your sheet (anonimise where possible) using the link in my signature below and i´ll try to help.

 

[arey]

i thin ki see where you're going with this BUT...

I have the form automatically opening when i open the workbook.
I added this code to achieve this.

Private Sub Workbook_Open()
frmGlobalInterface.Show
End Sub

Now what I want is when my form opens, the workbook to minimize.

Any clearer?

 

[shyrath]

Try this

Private Sub Workbook_Open()
frmGlobalInterface.Show
Application.Visible = False
End Sub

 

[arey]

If i did it correctly it didnt work.
All I did was add one line from your code to mine...


Application.Visible = False


Yes?

 

[shyrath]

try this :

Application.WindowState = xlMinimized

 

[arey]

sorry about the late response. I went to lunch.

That does seem to work either.

 

[shyrath]

not sure what would cause that.
care to send me the file? (use below link)