[求助]看论坛原来的贴子，好奇试一试结果，word菜单不能用了，如何恢复？

cloud0990

看论坛原来的贴子，好奇试一试结果，word菜单不能用了，如何恢复？

CommandBars("Menu Bar").Controls(1).CommandBar.Controls(4).Enabled =False CommandBars("Menu Bar").Controls(1).CommandBar.Controls(5).Enabled =False CommandBars("Menu Bar").Controls(2).Enabled = False

konggs

找到这些值后，把false 改为true，运行一下就行了。

它们分别是对应是：保存、另存为，第二个菜单（编辑）不可用，对吧！

很有意思啊！

[此贴子已经被作者于2005-8-10 8:41:02编辑过]

cloud0990

菜单全部屏蔽了，在那修改啊？

别外：CommandBars("Menu Bar").Controls(1).CommandBar.Controls(4).Enabled =False是管那行菜单的？ CommandBars("Menu Bar").Controls(1).CommandBar.Controls(5).Enabled =False这个是管那个的？ CommandBars("Menu Bar").Controls(2).Enabled = False还有这个？

konggs

还就删normal吧。

你一个一个试就知道了。

CommandBars("Menu Bar").Controls(1).CommandBar.Controls(4).Enabled =False是管保存的

CommandBars("Menu Bar").Controls(1).CommandBar.Controls(5).Enabled =False这个是管另存为 CommandBars("Menu Bar").Controls(2).Enabled = False编辑菜单。

守柔

也可以试试这个：

Sub ResetAll() Dim i As CommandBar On Error Resume Next For Each i In Application.CommandBars i.Reset Next End Sub