屏蔽右键代码求完善

jacksc

各位老师：在EH上得到 jlhao 老师在一篇回复粘 中的提示，整理了如下代码，现还有两个问题急需解决，请帮忙看看，谢谢！
1、2010版 的“粘贴选项”多了图标，不知如何删除；“选择性粘贴”多了二级下拉，也不知如何删除；
2、目前此代码运行后，对所有工作簿都有效，想改为只针对当前工作簿有效

Private Sub workbook_open()
On Error Resume Next
    With Application
        .CommandBars("Cell").Controls("选择性粘贴(V)...").Delete
        .CommandBars("Cell").Controls("粘贴(P)").Delete    '2007版
        .CommandBars("Cell").Controls("插入批注(M)").Delete
        .CommandBars("Cell").Controls("从下拉列表中选择(K)...").Delete
        .CommandBars("Cell").Controls("显示拼音字段(S)").Delete
        .CommandBars("Cell").Controls("定义名称(A)...").Delete    '2010版
        .CommandBars("Cell").Controls("命名单元格区域(R)...").Delete
        .CommandBars("Cell").Controls("超链接(I)...").Delete      '2010版
        .CommandBars("Cell").Controls("超链接(H)...").Delete
    End With
End Sub

蓝桥玄霜

在工作簿退出事件中恢复右键功能。reset

jacksc

蓝桥玄霜 发表于 2014-1-23 15:56
在工作簿退出事件中恢复右键功能。reset

老师：用下面代码只有本表页关掉时才起作用，我的意思是我操作这个工作簿时，右键自定义设置生效，当切换到其他工作簿时，右键自定义设置失效，该如何变化呢？谢谢！
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.CommandBars("cell").Reset
End Sub

蓝桥玄霜

用Private Sub Workbook_Deactivate()事件试试看。

jacksc

蓝桥玄霜 发表于 2014-1-24 10:23
用Private Sub Workbook_Deactivate()事件试试看。

老师：在你的指导下，切换到其他工作簿，右键功能恢复了，但再切换回本工作簿时，想隐藏的右键功能也可以使用了，需在哪个事件中我再设？谢谢！

蓝桥玄霜

Private Sub Workbook_Activate()

jacksc

蓝桥玄霜 发表于 2014-1-25 09:11
Private Sub Workbook_Activate()

test.rar (11.17 KB, 下载次数: 7)

2014-1-25 09:49 上传

点击文件名下载附件

老师：详见附件，我是否设得不对，没达到想要的效果，请帮忙看看。

loquat

ThisWorkBook

1. Private Sub Workbook_Activate()
   
2.     屏蔽右键
   
3. End Sub
   
4. Private Sub workbook_open()
   
5. Application.ScreenUpdating = False            '关闭屏幕闪烁
   
6. 屏蔽右键
   
7. Sheet3.[D6] = Date
   
8.     MsgBox "欢迎使用本模板，当前日期是： " & [D6].Value & " 将生成《" & [C3].Value & "》，“是”请点“确定”，将为你切换到《sheet1》表页；“否”请点“？”，将停留在本表页以便你修改日期；"
   
9.     Sheet2.Activate
   
10.     ActiveSheet.[B3].Select
    
11.     Application.ScreenUpdating = True            '打开屏幕闪烁
    
12. End Sub
    
13. Private Sub Workbook_Deactivate()
    
14.     Application.CommandBars("cell").Reset
    
15. End Sub
    
16. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
17.     Application.CommandBars("cell").Reset
    
18. End Sub

复制代码

Module中

1. Sub 屏蔽右键()
   
2. On Error Resume Next
   
3.      With Application
   
4.          .CommandBars("Cell").Controls("选择性粘贴(V)...").Delete
   
5.          .CommandBars("Cell").Controls("粘贴(P)").Delete    '2007版
   
6.          .CommandBars("Cell").Controls("插入批注(M)").Delete
   
7.          .CommandBars("Cell").Controls("从下拉列表中选择(K)...").Delete
   
8.          .CommandBars("Cell").Controls("显示拼音字段(S)").Delete
   
9.          .CommandBars("Cell").Controls("定义名称(A)...").Delete    '2010版
   
10.          .CommandBars("Cell").Controls("命名单元格区域(R)...").Delete
    
11.          .CommandBars("Cell").Controls("超链接(I)...").Delete      '2010版
    
12.          .CommandBars("Cell").Controls("超链接(H)...").Delete
    
13.      End With
    
14. End Sub

复制代码

jacksc

loquat 发表于 2014-1-25 10:11
ThisWorkBookModule中

老师：谢谢！现有两个地主需完善，请帮我看看，谢谢！
1、2010版 的“粘贴选项”多了图标，不知如何删除；“选择性粘贴”多了二级下拉，也不知如何删除；
2、工具栏 上的“粘贴”与“选择性粘贴”也要删掉或关闭，达到不可操作的目的。

loquat

2.请你看看RibbonX