[已解决]为什么视图——工具栏下的子菜单项禁用不掉

raulerini

我想禁用视图——工具栏下的子菜单项，这样写为什么不行？

Sub tt()
    Dim ctl As CommandBarControl
    For Each ctl In Application.CommandBars(1).Controls(3).Controls(4).Controls
        ctl.Enabled = False
        Debug.Print ctl.Enabled
    Next
   
End Sub

 

菜单栏没有做过调整。

这样写是OK的。Application.CommandBars(1).Controls(3).Controls(4).Enabled = False（将视图-工具栏整个禁用了）

最佳答案

月排行榜 / 总排行榜

小福贵

2010-12-3 18:20

工具栏的.Enabled属性并不是把字变灰，而是隐藏这个工具栏，视图工具栏中显示的只是文字，真正隐藏还需要

Application.CommandBars(3).Enabled = False ‘隐藏常用工具栏

跳转到最佳答案楼层

小福贵

工具栏的.Enabled属性并不是把字变灰，而是隐藏这个工具栏，视图工具栏中显示的只是文字，真正隐藏还需要

Application.CommandBars(3).Enabled = False ‘隐藏常用工具栏

raulerini

谢谢小福贵。

但是我没看太明白，enabled不就是变成不可用吗，visible才是变成不可见吧？为什么你说enable是隐藏这个工具栏呢？

还有，我需要禁用的是菜单——视图——工具栏下所有的子菜单项，并不是要禁用“工具栏”

小福贵

QUOTE:

以下是引用raulerini在2010-12-3 20:39:00的发言：

谢谢小福贵。

但是我没看太明白，enabled不就是变成不可用吗，visible才是变成不可见吧？为什么你说enable是隐藏这个工具栏呢？

还有，我需要禁用的是菜单——视图——工具栏下所有的子菜单项，并不是要禁用“工具栏”

工具栏是个统称，是指归好类的EXCEL的命令存在的地方。视图下的“工具栏”是指集中了很多工具栏的工具箱子菜单。

工具栏的enabled就是隐藏不可见，你试试就知道了。

Application.CommandBars(3).Enabled = False ‘隐藏常用工具栏

raulerini

了解了。这个菜单项只是一个工具栏的集合。

实际上指向的是一个commandbar工具栏，可是为什么我定义它的类型为CommandBarControl类型系统也不报错呢？

[em06][em06]