Disable Ctrl-Break in Excel

[Hmadyson]

I would like to Disable Ctrl-Break. I have a lot of code running in excel, and users can always break it and stop what I am doing. I tried using
Applicaton.Onkey "^{BREAK}",""
but that did nothing. I realize that Ctrl-break is very helpful for coders, but it is very dangerous for hackers. There has to be away to get rid of it.
Thanks.

 

[kevinclark]

Disable
Application.EnableCancelKey = xlDisabled

Enable
Application.EnableCancelKey = xlErrorHandler

 

[rmikesmith]

Kevin,

If you want to give users the ability to gracefully interrupt a lengthy operation, use the xlErrorHandler constant in conjunction with an error handler in your procedure. Example:

Sub HurryUpAndWait()

On Error Goto ErrTrap
Application.EnableCancelKey = xlErrorHandler
' Some time-consuming operation here

Exit Sub

ErrTrap:
If Err.Number = 18 Then
  If MsgBox ("Are sure you want to terminate the operation?",vbQuestion+vbYesNo,"") = vbNo Then Resume
End If
End Sub

Also, It's a good idea to thoroughly test your procedure before disabling the Ctrl-Break key, otherwise you won't be able break out of an infininte loop.