请问如何用宏来设置工具栏

ddddddddd

我的问题是：想把WROD中［工具］下［保护文档］设为不可见或不可用。请问版主怎么用宏来实现。谢谢!!

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-2 07:31:37 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub ExampleOne() '利用工具栏的命令位置 Application.CustomizationContext = ActiveDocument '作用在活动文档 Application.CommandBars("Tools").Controls(10).Enabled = False End Sub '---------------------- Sub ExampleTwo() '利用工具栏的命令名称 Application.CustomizationContext = ActiveDocument Application.CommandBars("Tools").Controls("保护文档(&P)...").Enabled = False End Sub '---------------------- Sub ExampleThree() '利用菜单工具栏的子菜单下的命令位置 Application.CustomizationContext = ActiveDocument Application.CommandBars(41).Controls(6).Controls(10).Enabled = False End Sub '---------------------- Sub ExampleFour() '利用命令的ID/Findcontrol方法进行 Application.CustomizationContext = ActiveDocument Application.CommandBars.FindControl(ID:=336).Enabled = False End Sub '---------------------- Sub ToolsProtectUnprotectDocument() '利用修改WORD命令的方法 MsgBox "这个命令不管用了,哈哈!", vbOKOnly + vbInformation, "Warning" End Sub '---------------------- Sub Reset() '恢复 Application.CommandBars("Tools").Controls(10).Enabled = True End Sub '----------------------

注意，如果是不可见，可将上代任一过程中的Enabled 属性修改为Visible属性即可。

如果是不可见，可以不用宏，直接在自定义工具栏中进行，将该命令拖到自定义对话框中即可（相当于删除）

有关认识WORD工具栏、命令和修改WORD命令等内容及贴子，可以本论坛中搜索，推荐置顶贴子〈守柔WORD编程代码集〉，中有比较详细论述和范例。

shuiyuan

版主的作品先收藏，谢谢

ddddddddd

谢谢版主，受益不浅啊，