Show UserForm With Application.Visible = False

[Olwa]

Hi!
Is it possible to only hide the excel application for a specific workbook or something similar?

Im using this code


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

to only show the userform, while excel is hidden for the user. It does however cause problems if the user already opened other excel workbooks. Only idea i got so far is unhiding by using Application.Visible = True as the user clicks an image used to close the userform. Not the best solution though as he can't work with other excel sheets while using my userform.

Any suggestions?

[mdmackillop]

Private Sub Workbook_Open()
ActiveWindow.WindowState = xlMinimized
Userform4.Show
End Sub

[Olwa]

Tried it, opens the workbook minized (as it is supposed to do i guess?) but doesnt show the userform. Additionally it crashes in a weird way (not able to click or select anything in excel, only able to exit by using task manager).

[mdmackillop]

Try opening non-modal (I didn't test opening as modal)

Userform4.Show 0

[Olwa]

Thank you, but its still not doing the job. Now it opens Excel minimized, the application works, but the userform does not show up.

[mdmackillop]

Does it work if you run it from the VBE

[Olwa]

I assume VBE means VB-Explorer/Editor and tried running it out of the above code. Nothing happened.

[mdmackillop]

Can't think of anything else. Can you post your workbook?

[GTO]

...It does however cause problems if the user already opened other excel workbooks. Only idea i got so far is unhiding by using Application.Visible = True as the user clicks an image used to close the userform. Not the best solution though as he can't work with other excel sheets while using my userform...

Greetings,

I'm not sure if you are trying to hide the entire app, or just the workbook. If the latter, maybe something along the lines of:

ThisWorkbook Code:


Option Explicit

Private frmUserForm1 As UserForm1

Private Sub Workbook_Open()
Set frmUserForm1 = New UserForm1
ThisWorkbook.IsAddin = True
frmUserForm1.Show vbModeless
End Sub


Userform Code:


Option Explicit


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.IsAddin = False
End Sub


Hope that helps,

Mark

[SamT]

I don't think you can hide the Application, since I think that also hides all the App's child processes.

[GTO]

Hi Sam,

You can show the form vbModeless after hiding the app.

Standard Module:


Option Explicit


Private formUserform1 As UserForm1


Sub HideAppShowForm()

Set formUserform1 = New UserForm1
Application.Visible = False
formUserform1.Show vbModeless

End Sub


Userform Code:


Option Explicit


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


Mark

[SamT]

Thanks Mark, Good to know.
I will now change the thread Title to
Show UserForm With Application.Visible = False

[mdmackillop]

Hi Olwa
Is this solved?