防止用户停止macros（Excel VBA）

我想阻止用户在保存期间停止macros。 我发现了以下代码：

Application.EnableCancelKey = xlDisabled 

如果您按ESC键一次，它将起作用，但如果长时间按住该键，则可以停止该macros。

我尝试了Application.EnableCancelKey = xlErrorHandler ，如下所示：

 Application.EnableCancelKey = xlErrorHandler On Error GoTo errHandler: ActiveWorkbook.Save exitHere: Exit Sub errHandler: msgbox"something" Resume exitHere 

有时它可以完美的工作，但有时如果我在完美的时刻按下ESC键几秒钟，我就可以停止这个macros。

你知道，如果有一种方法可以使ESC键失效吗？

Answer 1

我从来没有这样做，但这是我如何从你的代码开始：

 On Error GoTo errHandler: Application.EnableCancelKey = xlErrorHandler ActiveWorkbook.Save Application.EnableCancelKey = xlInterrupt exitHere: Exit Sub errHandler: If MsgBox("something", vbOKCancel) = vbCancel Then Application.EnableCancelKey = xlInterrupt Exit Sub End If Resume