无法运行宏以​​捕获删除密钥

Question

我正在尝试使用VBA捕获EXCEL图表上的DEL键，以防止用户手动删除图表系列。我改编了本文的代码

Trap delete key

如下：

Private Sub Chart_Activate()
    Application.OnKey "{DELETE}", "Intercept_DelKey"
End Sub

Private Sub Chart_Deactivate()
    Application.OnKey "{DELETE}"
End Sub

Sub Intercept_DelKey()
    MsgBox "user just pressed delete"
End Sub

但是，当我按下DEL键时，会出现此错误

  

无法运行宏***。xlsm！Intercept_DelKey。宏可能不是   该工作簿中的可用内容，否则可能会禁用所有宏。

其他宏正在运行，因此问题可能是范围之一？我尝试将宏声明为

Public Sub Intercept_DelKey()

但是遇到同样的问题。欢迎所有建议-谢谢！