Userform that hides excel closes when new excel workbook is closed

[CV899000]

Hi,

I have a Userform that hides the excel workbook from which it is generated.
This works fine and I use the following code:

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

Now, when I hit a commandbutton on my userform that says exit, I wanted excel to stop without asking to save, so I used this code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub

This also works fine.

My problem is, that I have another button in my userform that opens a separate workbook and when I am done with this new workbook, I would like to be able to close it and continue with whatever I need in my userform. But when I close this new and separate workbook, the excel that runs my userform also closes.
How can I avoid this?

This also happens if I just open a new excel workbook normally and closes it. No matter what I ONLY want the userform to close if I press the exit button on the userform.

 

[Ingolf]

Try:

Private Sub Workbook_Open()
Dim wb As Workbook 
    Set wb = Workbooks(ThisWorkbook.Name)
    Windows(wb.Name).Visible = False 
General.Show
End Sub

 

[CV899000]

Ingolf, thank you for your reply.

This did not work. If I input your code, excel is not hidden anymore (when the userform opens, excel is visible in the background).
I still want excel to be hidden.

And if I open a new excel workbook ontop of my userform and closes the new workbook, my userform still closes.

 

[CV899000]

Can nobody help with this?