onclick - スライド内の図形が編集または削除されないようにする方法

Question

私はvbaが初めてでonClickEvent、PowerPointのようなものを作成しようとしています.

スライドのタグを持つ「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

あなたの助けと提案を前もって感謝します