左权华海石材有限公司:禁用excel 删除 命令

来源:百度文库 编辑:偶看新闻 时间:2024/04/27 22:00:38
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