Disable "cancel" button

  • Thread starter Thread starter R Avery
  • Start date Start date
R

R Avery

Is there anyway to cancel the "X" cancel button at the top of UserForms?
Alternatively, is there a way to re-route the "Esc" key to the "Done" button
on my userform?

The problem is that I have code that calls this form, and does an infinite
loop while checking the form's "IsDone" custom property. When the user
cancels the form, I get an "Automation Error", because the code calling the
form is still looking for a .IsDone property, but the object no longer
exists! I have tried putting setting the IsDone property to TRUE in the
Terminate event... but it does not work.

Or, is there another solution to this problem that I do not know about? Any
help would be appreciated!
 
Look a tthe Help for UserForm_QueryClose - this event occurs when the window
gets asked to close (via Close button, or by End Process or whatever)

For the Done button, try setting it's Cancel property to true. This will
send ESC to this button.
 
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub
 
Back
Top