禁用菜单栏部分功能

有些Excel的菜单栏上的某些选项按钮我们不想别人使用。
那我们可以禁用那些选项。
比如禁用调整“单元格格式”的选项。
代码如下:
 
1 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
2 Application.CommandBars(“Worksheet Menu Bar”).Controls(“格式(O)”).Controls(“单元格(E)…”).Enabled = False
3 End Sub
如果要禁用其他功能,只要往代码下继续添加禁用代码。
如果需要恢复只要将值改成true。
其他的参考上述方法。
分享到: