エクセルのマクロについて教えてください。

マクロ
Sub 担当者削除()
Sheets("提出シート").Shapes("担当者").Delete
End Sub

があります。
マクロを実行すると指定シートの指定図形が削除されます。
シート「提出シート」を「校閲」→「シートの保護」を設定していると
マクロが実行できません。
シートを保護した状態でもマクロが実行し、指定図形が削除できる方法を教えてください。
シート「提出シート」は誤記を防ぐために、必要箇所以外はシートの保護を実施しおります。
指定図形「担当者」が削除された後もシートの保護はそのままの状態で作業を続けたいです。
シート保護の解除キーは「ABC」です。
よろしくお願いいたします。