Cancel userform event

[Paella1]

I have a userform which displays on opening a file. It contains <u>Conditions of Use</u> to which the user must agree. If the user selects yes, the form unloads and the user can proceed. If the user selects No, the form unloads then the file closes without saving changes.

However, the user can still close the userform by clicking the close box at the top right, after which they could proceed but later claim they did not accept the <u>Conditions of Use</u>. I'd be left with no option but to have them put to death.

How do I ensure the file closes if the user clicks on the close button?

 

[Jaafar Tribak]

I have a userform which displays on opening a file. It contains Conditions of Use to which the user must agree. If the user selects yes, the form unloads and the user can proceed. If the user selects No, the form unloads then the file closes without saving changes.

However, the user can still close the userform by clicking the close box at the top right, after which they could proceed but later claim they did not accept the Conditions of Use. I'd be left with no option but to have them put to death.

How do I ensure the file closes if the user clicks on the close button?

Look up the QueryClose event

 

[Paella1]

Jaafar,
Both Queryclose and Terminate will fire all right. The problem is that they will fire <i>anytime</i> the form unloads. Which means the file then closes even if the user has clicked Yes.

My current line of thinking is that I need to pass variables between the userform's events, but surely there must be a simpler resolution thatn that.

 

[GTO]

Maybe try using the CloseMode:

Private Sub cmdRefuse_Click()
    UserForm_QueryClose False, vbFormControlMenu
End Sub
    
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Close False
End Sub

 

[Paella1]

A noble colleague just provided me with the following. It works.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
        'with compliments of Lord Schuckmeister
        If CloseMode = 0 Then Cancel = True
    
    
End Sub