Prevent user to stop a calculation

[SabCie]

Hi a have a big Excel program. The only macro that I use is a button that turns the calculation mode to manual and then makes a "calculate". This takes about 2 min and then it get back to an automatic calculation mode.

The problem is that when it is running and that a user press the "Esc" button, the calculation does not complete.

Is there a way to prevent this?

I have tried to disable the "Application.EnableCancelKey" but It did not worked. Also I tried Application.OnKey "{ESC}", "" but nothing also....

Help would be greatly appreciated.

Thanks!

 

[VoG]

Try

Application.EnableCancelKey = xlDisabled
'
'your code
'
Application.EnableCancelKey = xlInterrupt

 

[SabCie]

Thanks VoG,

I had tried that already but I still can press Esc and the calculation will stop. What is weird is that when I type "Application.EnableCancelKey = xlDisabled" in the immediate window, it returns me a 1 instead of a 0...

 

[VoG]

I'm surprised. Maybe something like this

On Error GoTo ErrHandl
Application.EnableCancelKey = xlErrorHandler
'
'your code
'
ErrHandl:
If Application.CalculationState = xlDone Then Application.EnableCancelKey = xlInterrupt