How to close userform if another is open

[Patriot2879]

Hi please could you help me
I have 2 userform called userform 1 and userform 2. If someone has userform 1 already open and someone else trys to open userform 2 I want it to automatically close userform 2 with a message to try later. Can you help me please?

 

[mikerickson]

Put this in the Intialize event for userform2

Private Sub UserForm_Initialize()
    If 1 < UserForms.Count Then 
        MsgBox "try later"
        Unload Me
    End If
End Sub

 

[Patriot2879]

hi thank you for the code I for got to mention that userform 1 ius located in sheet1 and userform 2 is located in sheet2, how do I amend the code please to reflect that? thank you for your help this is greatly appreciated I am still learning

 

[Patriot2879]

Hi sorry me again, just wondering if you had any ideas to add the sheet1 and sheet2 along side the userforms at all please, I am very grateful for your time

 

[Patriot2879]

hi s is what I have amended it to, (please see below) to try and add in the sheet1 but its not working, hope you nan help?

PrivateSub UserForm_Initialize()
 
DimWB As Workbook: Set WB = ThisWorkbook
DimWS As Worksheet
SetWS = WB.Sheets("Sheet1")

 
   If ws = 1 < userforms.Count Then
       MsgBox "try later"
       Unload Me

   End If
EndSub

 

[mikerickson]

Userforms are not located in sheets. There is no need to reference the worksheet.

What happened when you tried my suggestion.

 

[Patriot2879]

Hi thanks for your reply. To get to the userform I click on command button 3 do I put the code under there?

 

[mikerickson]

You put that code in the code module for the userform2

 

[Patriot2879]

Ok I try that. Do I right click on userform2 and put the code in that way?

 

[Patriot2879]

Hello just wondered as I have in total 5 userforms but only want the code to work for userform 1 and 2 is this still ok? Thank you again for your time