恢复屏蔽右键

菲一样的生活

在excel里运行了这样的宏，当鼠标置于数据透视表上右键功能被屏蔽。但是删除宏后，仍然没有恢复右键功能。求高人指点，如何能恢复右键功能，在线等，急
Application.OnKey "^{c}", ""
   
     Sheets("Employee Related Details").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=False, Scenarios:=True
   
Sheets("T&E Details").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=False, Scenarios:=True
   
Dim myBar As CommandBar
      For Each myBar In CommandBars
          If myBar.Type = msoBarTypePopup Then
              myBar.Enabled = False
          End If
      Next

End Sub

hehex

打开文件，按alt+F11 进入vba 编辑器
在代码窗口下将以下代码复制进去，将鼠标定位在Sub 这行之后，按F5:
   Sub recoverKeys()
    Dim myBar As CommandBar
    For Each myBar In CommandBars
        If myBar.Type = msoBarTypePopup Then
            myBar.Enabled = True
        End If
    Next

End Sub


     

菲一样的生活

果然是高手啊，非常感谢。还有一个问题，左键双击单元格没反应，宏里并没有屏蔽左键功能，这是为什么？

hehex

菲一样的生活 发表于 2012-11-15 14:48
果然是高手啊，非常感谢。还有一个问题，左键双击单元格没反应，宏里并没有屏蔽左键功能，这是为什么？

其实我是新手，能解决这个问题是因为你给的代码已经带了方法了  If myBar.Type = msoBarTypePopup Then
这句估计是对鼠标右键的点击的判断，既然你的代码里False 是屏蔽，那True 就是打开了。至于左键双击，我实在是不知道。

菲一样的生活

好的，非常感谢

菲一样的生活

在excel里设置了宏，想另外设置按钮，点击按钮关闭文件同时取消所有的宏，可以实现吗？