vba - 防止用户停止宏(Excel VBA)

Question

我想防止用户在保存过程中停止宏。我找到了以下代码:

Application.EnableCancelKey = xlDisabled

如果您按一下 ESC 键，它就会起作用，但如果您长时间按住该键，则可以停止宏。

我尝试了 Application.EnableCancelKey = xlErrorHandler 如下:

Application.EnableCancelKey = xlErrorHandler
On Error GoTo errHandler:

ActiveWorkbook.Save

exitHere:
  Exit Sub

errHandler:
  msgbox"something"
  Resume exitHere

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

你知道是否有办法真正禁用 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