Excel application flashing before hiding when using Application.Visible propety

[Shameem Khan]

I am trying to open a Userform without opening excel application. After some searching, I found the codes to do that. It is working fine, however the Excel window always opens before it hides. Is there anyway to avoid flashing of the excel window so that only the userform shows up and nothing else. I have set the following code inside ThisWorkbook object in Excel VBA.

Private Sub Workbook_open()
Application.Visible = False
Application.ScreenUpdating = False
Uf_Randomizer.Show vbModeless
End Sub

Please help, Thanks in advance.

P.S- I am new to this

 

[Legacy 456155]

TTBOMK, you will need to create a launcher such as a script file or exe. Before going that far, create a shortcut to your document and select Minimized for the Run option. Maybe that will do...

 

[Shameem Khan]

Thanks @dataluver . Not actually what I was looking for, but Good Idea. And what did you mean by creating a launcher. Did you mean to create a batch file(.bat) file to open the excel file or is there any way to convert the excel file into exe file ? Just curious....

 

[Legacy 456155]

Hi Shameem. In this example, the script file will be in the same folder as the workbook. When you fire up an instance of Excel as an automation server, the default is an invisible application instance. So it will never show unless you explicitly show it. As a side, there may be a command line argument that will work for you. That may be an option worth checking into.

There is an example of the following in this folder which contains a folder named Launch Invisible Instance which, in turn, contains the three files mentioned below. Download the folder as is.

Create a macro enabled workbook with UserForm1 containing this code:

Private Sub UserForm_Terminate()
    Application.Quit
End Sub

Place this code in your workbook class:

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Create a script file. Launcher.vbs, for example:

Dim fso, FolderName, xl
Set fso = CreateObject("Scripting.FileSystemObject")
FolderName = fso.GetParentFolderName(Wscript.ScriptFullName)
set xl = CreateObject("Excel.Application")
xl.Workbooks.Open FolderName & "\Example Launcher.xlsm"

If you wish, you can then create a shortcut to your script file, changing the icon of the shortcut to suit.

 

[Shameem Khan]

Yup. That did it. Thanks a lot @dataluver . Been struggling with it for a while...

 

[Legacy 456155]

Glad to help.

 

[Wint]

I want to hide excel workbook when running the vba project for client side.So, I'm Application.Quit in QueryClose() function.Now ,show userform only but can't go back to excel workbook. How can I go back to excel workbook to edit something code.