How do you unload only the top UserForm?

**skysurfer** · 04-07-2010, 02:51 PM

Hi,

When I have two UserForms open at the same time and I click on the "X" close button in the upper right hand corner of the top most form, ALL the forms unload. Is there code that changes that X button to only unload the form in which it resides and keep the other form loaded/shown?

Thanks,

Lawrence

**Leith Ross** · 04-07-2010, 06:09 PM

Hello skysurfer,

You should post your workbook. I have tried to reproduce this problem without success.

**skysurfer** · 04-07-2010, 06:19 PM

Originally Posted by Leith Ross

Hello skysurfer,

You should post your workbook. I have tried to reproduce this problem without success.

Hi Leith,

Just got back and was preparing the workbook to be posted for you when I tested the issue...and there was no issue. That is, after shutting down Excel and then reloading the program and the workbook there is now no problem.

However, I still would like to gain greater control over that X close button. Is it possible to apply code to it that will make the form hide instead of unload?

Thanks!

Lawrence

**Leith Ross** · 04-07-2010, 06:27 PM

Hello skysurfer,

The UserForm can tell if the close box was clicked or not.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode Then Me.Hide
End Sub

**skysurfer** · 04-07-2010, 06:53 PM

Thanks Leith.

Where do I put that code? I tried it in the Forms and clicking on the X still unloads the UserForm. I'm trying to hide the form so when it is triggered to show again the last page on the MultiPage will be the 1st page seen.

Lawrence

**Leith Ross** · 04-07-2010, 07:49 PM

Hello skysurfer,

Open the Visual Basic Editor and select a UserForm
Press F7. This inserts the default event Private Sub UserForm_Click() into the UserForm.
Above this window are 2 drop down lists. The one on the left is for Objects and the one on the right is for events.
Click the righthand drop down list. Scroll down the list to QueryClose
Insert the following line of code If CloseMode Then Me.Hide
Repeat these procedures for each UserForm you want to hide instead of close.