procedure pops message before colse userform based on press commandbutton

[Maklil]

Hi

I need procedure to show messagebox "the form can't close before press commandbutton1"

this means if I try to close userform before I press commandbutton1 ,then prevent me to close userform ,if I press commandbutton1 then will show another messagebox"are you're sure , the form will close" if I press ok then will close if I press no then will keep the form is open .

thanks

 

[breynolds0431]

The below UserForm_QueryClose code will restrict using the x (close) button on the userform. The CommadnButton1_Click will allow for the closure of the userform after a confirmation.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        MsgBox "the form can't close before press commandbutton1", vbInformation + vbOKOnly
    End If
End Sub

Private Sub CommandButton1_Click()
    Dim ans As Integer
    ans = MsgBox("are you sure, the form will close", vbInformation + vbYesNo)
    If ans = vbNo Then Exit Sub
    If ans = vbYes Then Unload Me
End Sub

 

[Maklil]

perfect !
this what I want it .
thanks very much