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!
 
You can disable the 'X' button with the following code:

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
Cancel = True
End Sub

You can make your Done button respond to the Esc key by setting
the Cancel property of the button to True.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
Back
Top