如何阻止幻灯片中的形状被编辑或删除？

Question

我是vba的新手，并尝试在PowerPoint中创建类似onClickEvent的内容。

  

我想停止编辑和删除名为“xyz”的形状   有幻灯片的标签。

我试图创建一个事件，检测此形状的选择，然后如果它被删除或编辑，如下所示;

If shape=”xyz” is the selected object then
Detect if {“DEL”} or {“BACKSPACE”} is pressed. Then AlertUser

AlertUser类似于消息，然后撤消操作

Public Sub AlertUser()
    MsgBox "Tags cannot be edited. This tag will be reset now."
    Application.CommandBars.ExecuteMso "Undo"
End Sub

提前感谢您的帮助和建议