Maximize Userform on Workbook Active

**savio21** · 12-05-2011, 12:12 PM

Hi Guys,

I have a UserForm that automatically displays when a Workbook opens; the userform allows the user to create 2 new workbooks from the data they have entered. Unfortunately, the user can't select the new workbooks without closing the Userform. For this reason, I have added a minimize button to the userform:

Private Sub CommandButton24_Click()
frmMain.Hide
Application.WindowState = xlMinimized
End Sub

However, when the user reselects the workbook the userform doesn't show again and they are able to see the sheets behind it. Would it be possible to redisplay the userform if the workbook becomes active again. I have tried this code but it doesnt seem to work:

Private Sub Workbook_Activate()
frmMain.Show

End Sub

Thanks in advance for your help.

**snb** · 12-05-2011, 01:18 PM

this will suffice:

Private Sub CommandButton24_Click()
  frmMain.Hide
End Sub

Private Sub Workbook_Activate()
  frmMain.Show
End Sub

**savio21** · 12-05-2011, 05:36 PM

It doesn't appear to work. My main goal is to prevent the user from seeing the worksheets behind the userform (mainly for security reasons so they don't screw anything up). Should I add this code to a separate module or just to the "This Workbook" object.

**savio21** · 12-06-2011, 01:43 PM

It appears to be working now. Thanks again!

**snb** · 12-06-2011, 02:01 PM

Private Sub CommandButton24_Click()
  frmMain.Hide
End Sub

Private Sub Workbook_Open()
  frmMain.Show
End Sub

**savio21** · 12-06-2011, 03:05 PM

I have both codes now:

Private Sub Workbook_Activate()
  frmMain.Show
End Sub

and

Private Sub Workbook_Open()
  frmMain.Show
End Sub

which works great if there is another workbook open. Unfortunately, it doesn't work if its the only Workbook open. I'm using this code to minimize the application and the userform:

Private Sub CommandButton24_Click()
frmMain.Hide
Application.WindowState = xlMinimized
End Sub

I would like the userform to be displayed if the user selects the workbook again. Hope that makes sense!!

**savio21** · 12-07-2011, 11:01 AM

Is there a way to ensure the userform displays if the workbook is maximized? If not I may need to add a workaround.

Maximize Userform on Workbook Active

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Maximize Userform on Workbook Active

Re: Maximize Userform on Workbook Active

Re: Maximize Userform on Workbook Active

Re: Maximize Userform on Workbook Active

Re: Maximize Userform on Workbook Active

Re: Maximize Userform on Workbook Active

Re: Maximize Userform on Workbook Active

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions