[已解决]求助：如何解决E工具栏中的图标灰色问题

单车代步

 

求助：如何解决E工具栏中的图标灰色问题

快捷图标是灰色的，但菜单中的功能还是能用，怎么解决才好呢？

最佳答案

月排行榜 / 总排行榜

小线

2010-4-22 14:45

给你的代码解决了没?解决了我就贴代码了:

Sub Test()
    Dim Cnt As Byte
    Dim i As Byte
    Cnt = Application.CommandBars(3).Controls.Count
    For i = 1 To Cnt
        Application.CommandBars(3).Controls(i).Enabled = 1
    Next i
End Sub

[此贴子已经被作者于2010-4-22 14:46:35编辑过]

跳转到最佳答案楼层

小线

给你的代码解决了没?解决了我就贴代码了:

Sub Test()
    Dim Cnt As Byte
    Dim i As Byte
    Cnt = Application.CommandBars(3).Controls.Count
    For i = 1 To Cnt
        Application.CommandBars(3).Controls(i).Enabled = 1
    Next i
End Sub

[此贴子已经被作者于2010-4-22 14:46:35编辑过]

raulerini

可能是工具栏被VBA禁用了。

Sub aa()
For i = 1 To 3
Application.CommandBars("Standard").Controls(i).Enabled = True
Next
End Sub

[此贴子已经被作者于2010-4-22 14:50:22编辑过]

单车代步

QUOTE:

以下是引用无爱无恨在2010-4-22 14:41:00的发言：

会不会是什么模块引起的？你查下VBA里面有没有不知名的模块

或者试试这个：

菜单栏右键-自定义
把变灰的按钮用鼠标点住拖下来，在命令里找到相应按钮放回去
文件下拉菜单的也是这么处理

或者在自定义里-工具栏中，选“重新设置”
  

呵呵，用了这办法还是没有解决哈，关了又灰了。谢谢您！

单车代步

为了感谢二楼和四楼的帮助，另外开贴送你们BB哈