禁用excel 删除 命令

Sub Macro1()
'保护工作表 禁用删除
ActiveSheet.Protect Password:="123456", AllowDeletingRows:=ture
'解除保护
ActiveSheet.Unprotect
End Sub
Sub Macro2()
'禁用右键 删除 命令，
Application.CommandBars("Cell").Controls(6).Enabled = False

'禁用编辑菜单 删除 命令
Application.CommandBars(1).Controls(2).Controls(11).Enabled = False

End Sub
Sub Macro3()
'编辑 菜单禁用 删除 命令，
For Each Item In Application.CommandBars(1).Controls(2).Controls
MsgBox Item.Caption
If Item.Caption = "删除(&D)..." Then
    Item.Enabled = False

End If
Next Item
End Sub