|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
各位大神: 你们好!在Excel2007版中,如何通过VBA禁用”开始”菜单中的”粘贴、公式、粘贴值、无边框、转置、粘贴链接、选择性粘贴、粘贴为超链接、以图片格式下的”粘贴为图片”,常用功能菜单中的”粘贴、公式、粘贴值、无边框、转置、粘贴链接、选择性粘贴、粘贴为超链接、以图片格式下的”粘贴为图片”,右键菜单中的“剪切、粘贴、选择性粘贴”等功能,即是使用它们变为白色。本论坛上以下VBA代码总是出错或是不起错用。
'屏蔽常用工具栏剪切、复制、粘贴
Application.CommandBars(3).Controls("剪切(&T)").Enabled = False
Application.CommandBars(3).Controls("复制(&C)").Enabled = False
Application.CommandBars(3).Controls("粘贴(&P)").Enabled = False
'屏蔽单元格右键菜单中的剪切、复制、粘贴命令
Application.CommandBars("Cell").Controls("剪切(&T)").Enabled = False
Application.CommandBars("Cell").Controls("复制(&C)").Enabled = False
Application.CommandBars("Cell").Controls("粘贴(&P)").Enabled = False
'屏蔽编辑菜单中的剪切、复制、粘贴命令
Application.CommandBars(1).Controls("编辑(&E)").Controls("剪切(&T)").Enabled = False
Application.CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = False
Application.CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = False
我说的是Excel2007版。
有哪位大神知道如何才能实现?
不胜感激!
|
|