怎样使用VBA禁用右键菜单？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub禁用()

 

Dim i As Byte, j

 

j=Application.CommandBars("cell").Controls.Count

 

For i=j-3 To j

 

Application.CommandBars("cell").Controls(i).Enabled=False

 

Next i

 

End Sub

 

Sub启用()

 

Dim i As Byte,j

 

j=Application.CommandBars("cell").Controls.Count

 

For i=j-3 To j

 

Application.CommandBars("cell").Controls(i).Enabled=True

 

Next i

 

End Sub

5、在禁用后三项时可能看不到与禁用前有何差异，这是因为Excel右键有很多隐藏菜单，需要选中某些特定内容才显示出来，而选择单元格时是看不到后三个菜单的