excel2010取消禁用右键插入或删除选项

1. Sub 禁止右键删除插入()
   
2. 
   
3. 
   
4.            With Application
   
5.    
   
6.                  .CommandBars("Cell").Controls("插入(&I)...").Enabled = False '置灰 ，可将选择单元格的时候，屏蔽右键弹出菜单里面的插入。
   
7.                  '.CommandBars("Cell").Controls("插入(&I)...").Enabled = True '取消置灰 ，可将选择单元格的时候，取消屏蔽右键弹出菜单里面的插入。
   
8.                  
   
9.                  
   
10.                  
    
11.                  .CommandBars("Cell").Controls("删除(&D)...").Enabled = False '置灰 ，可将选择单元格的时候，屏蔽右键弹出菜单里面的删除。
    
12.                  '.CommandBars("Cell").Controls("删除(&D)...").Enabled = True '取消置灰 ，可将选择单元格的时候，取消屏蔽右键弹出菜单里面的删除。
    
13.                  
    
14.                  
    
15.                  '.CommandBars("Row").Controls("插入(&I)").Enabled = True '取消置灰 可将选择整行时，取消屏蔽右键弹出菜单里面的插入
    
16.                  '.CommandBars("Row").Controls("插入(&I)").Enabled = false '置灰 可将选择整行时，屏蔽右键弹出菜单里面的插入
    
17.                  
    
18.                 '.CommandBars("row").Controls("删除(&D)").Enabled = False '置灰 可将选择整行时，屏蔽右键弹出菜单里面的删除
    
19.                 '.CommandBars("row").Controls("删除(&D)").Enabled = true '取消置灰 可将选择整行时，取消屏蔽右键弹出菜单里面的删除
    
20.                  
    
21.                  
    
22.                  
    
23.                  
    
24.                  .CommandBars("Column").Controls("插入(&I)").Enabled = False '置灰 可将选择整列时，屏蔽右键弹出菜单里面的插入
    
25.                  '.CommandBars("Column").Controls("插入(&I)").Enabled = True '取消置灰 可将选择整列时，取消屏蔽右键弹出菜单里面的插入
    
26.                  
    
27.                  
    
28.                  .CommandBars("Column").Controls("删除(&D)...").Enabled = False '置灰 可将选择整列时，屏蔽右键弹出菜单里面的删除
    
29.                 '.CommandBars("Column").Controls("删除(&D)").Enabled = true '取消置灰 可将选择整列时，取消屏蔽右键弹出菜单里面的删除
    
30. 
    
31. 
    
32.                  
    
33.                  '.CommandBars("Ply").Enabled = False      '置灰   可以禁用工作表名处的右键
    
34.                  '.CommandBars("Ply").Enabled = true      '取消置灰   可以取消禁用工作表名处的右键
    
35.      
    
36.      
    
37.                End With
    
38. 
    
39. 
    
40. End Sub

复制代码

特别要注意的是，整列选择后弹出右键菜单里面的删除选项，其置灰的代码和取消置灰的代码，不光是false和true的区别，前面还有三个英文点（...）的差别。
并且要命的是，以上各种命令，在立即窗口中测试都是有效的，但是一旦写到事件或是宏里面，总是会跳出如下的运行错误：
运行时错误 '5‘
无效的过程调用或参数

1. Application.Commandbars("column").Reset   '恢复选择整列的时候，右键的默认状态
   
2. 
   
3. Application.Commandbars("row").Reset      '恢复选择整行的时候，右键的默认状态
   
4. 
   
5. Application.Commandbars("cell").Reset     '恢复选择单元格的时候，右键的默认状态

复制代码

特别要注意的是，整列选择后弹出右键菜单里面的删除选项，其置灰的代码和取消置灰的代码，不光是false和true的区别，前面还有三个英文点（...）的差别。