excel2007和2010如何用vba禁用菜单里的删除工作表（&S）

piaoxue1

如题，2007和2010不能像03那样查菜单的序号了。
论坛里找了好多帖子，都是针对03的，现在有些不适用了。
请各位老师不吝赐教。
另，还想问问老师，如何禁用右键里的删除列和插入列。

战战如疯

1. Sub pb()
   
2.     Dim combars As CommandBarControls
   
3.     Dim combar As CommandBarControl
   
4.     Dim k As Integer, idnum As Integer
   
5.     idnum = Application.CommandBars(44).Controls("删除(&D)").ID
   
6.     Set combars = Application.CommandBars.FindControls(ID:=idnum)
   
7.     For Each combar In combars
   
8.         combar.Enabled = False
   
9.     Next combar
   
10. End Sub

复制代码

战战如疯

              

piaoxue1

战战如疯 发表于 2015-2-16 09:11

不是这个按钮，这个是针对工作表的，我想要针对单元格的，就是 列A，B，C……，行1,2,3,4……的
禁止插入列

战战如疯

1. Sub pb()
   
2.     Dim combars As CommandBarControls
   
3.     Dim combar As CommandBarControl
   
4.     Dim k As Integer, idnum1 As Integer, idnum2 As Integer
   
5.     Columns(1).Select
   
6.     idnum1 = Application.CommandBars(39).Controls("删除(&D)").ID
   
7.     idnum2 = Application.CommandBars(39).Controls("插入(&I)").ID
   
8.     Set combars = Application.CommandBars.FindControls(ID:=idnum1)
   
9.     For Each combar In combars
   
10.         combar.Enabled = False
    
11.     Next combar
    
12.     Set combars = Application.CommandBars.FindControls(ID:=idnum2)
    
13.     For Each combar In combars
    
14.         combar.Enabled = False
    
15.     Next combar
    
16. End Sub

复制代码

这是禁用列上的插入列和删除列

战战如疯

为什么我之前的2楼不见了？现在论坛还删帖了吗？

战战如疯

行上还要的话把39改40

zlzxtfl

你好，我有个文件，自已加了代码后，不知怎，已把r“插入”菜单下的插入“工作表”菜单已关闭，怎样恢复。
我的邮箱是502509614l@qq.com,谢谢指点。

zlzxtfl

战战如疯 发表于 2015-2-16 15:20
行上还要的话把39改40

你好，我有个文件，自已加了代码后，不知怎，已把r“插入”菜单下的插入“工作表”菜单已关闭，怎样恢复。
我的邮箱是502509614l@qq.com,谢谢指点。

Vaet

虽然帖子很老了.但是我还是想问下.我运行2楼代码怎么出现"无效的过程调用或参数"错误.我看了本地窗口.commandbars(44)名字是桌面.里面的items内容也对不上.正确的参数是啥呢.求教啊大哥哥们