[已解决]禁用隐藏命令

lanhan

原帖见如何禁用隐藏命令
http://www.excelpx.com/forum-viewthread-tid-154236-fromuid-267770.html
再表述一下：
如何用VBA实现禁用隐藏命令，也就是让行和列上的”隐藏“变成灰色不可用状态，这个可以实现吗

这是戏子老师给的代码
Application.CommandBars("row").Controls("隐藏(&H)").Enabled = 0
Application.CommandBars("column").Controls("隐藏(&H)").Enabled = 0
测试了一下，这个代码是管用的
只能禁用右键菜单里的隐藏命令，不能禁用菜单里的隐藏命令
有没有可以禁用所有隐藏功能（右键里的、菜单里的、快捷键）的命令
感觉上面这个命令只堵了一个分支，没有从源头堵上
感谢戏子老师！！
同时，希望更进一步得到解决

最佳答案

月排行榜 / 总排行榜

阿童木

2011-1-6 14:00

1. Sub 禁用隐藏()
   
2.     Dim Ctls As CommandBarControls
   
3.     Dim Ctl As CommandBarControl
   
4.     Set Ctls = Application.CommandBars.FindControls(ID:=886)
   
5.     For Each Ctl In Ctls
   
6.         Ctl.Enabled = False
   
7.     Next
   
8.     Set Ctls = Application.CommandBars.FindControls(ID:=883)
   
9.     For Each Ctl In Ctls
   
10.         Ctl.Enabled = False
    
11.     Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

阿童木

1. Sub 禁用隐藏()
   
2.     Dim Ctls As CommandBarControls
   
3.     Dim Ctl As CommandBarControl
   
4.     Set Ctls = Application.CommandBars.FindControls(ID:=886)
   
5.     For Each Ctl In Ctls
   
6.         Ctl.Enabled = False
   
7.     Next
   
8.     Set Ctls = Application.CommandBars.FindControls(ID:=883)
   
9.     For Each Ctl In Ctls
   
10.         Ctl.Enabled = False
    
11.     Next
    
12. End Sub

复制代码

阿童木

直接工作表保护不就好了

lanhan

阿童木 发表于 2011-1-6 14:04
直接工作表保护不就好了

这个有点脆弱

lanhan

我感觉这个功能好像可以实现的吧，可能是通过功能编号弄的吧，也不是太清楚

lanhan

这个这个，阿木，你的头像怎么是这个，你是妖的追求者吗？

阿童木

lanhan 发表于 2011-1-6 14:19
这个这个，阿木，你的头像怎么是这个，你是妖的追求者吗？

这不是宋惠乔么

lanhan

阿童木 发表于 2011-1-6 14:30
这不是宋惠乔么

哦，我看成菜妖了

lanhan

阿童木 发表于 2011-1-6 14:28

我想点你成最佳的，为什么说我没有权限？自己的帖子自己没有权限评最佳吗？如果是这样，你是版主你自己手工评上吧，我给你作主，不算滥用职权。

阿童木

说实话，我从来没见过设置最佳按钮。