鼠标右键功能失灵，无法使用。

zhangzhenxia

打开excel工作表，按右键无效，不知何故？请大侠们鼎力相助。

little-key

是不是加载宏或者dll控件屏蔽了右键。

zhangzhenxia

自己没有用过加载宏，请大师告诉我恢复的方法，谢谢！

亡者天下

该不会是鼠标坏了吧！？

zhangzhenxia

原帖由 亡者天下 于 2010-7-27 20:53 发表
该不会是鼠标坏了吧！？

鼠标没坏，word能用，就是excel无法使用。

老老高

换个鼠标看下！

boatwxp

Sub aaa()
    Dim myBar As CommandBar
    For Each myBar In CommandBars
        If myBar.Type = msoBarTypePopup Then
            myBar.Enabled = True
        End If
    Next
End Sub

zhangzhenxia

原帖由 boatwxp 于 2010-7-27 21:00 发表
Sub aaa()
    Dim myBar As CommandBar
    For Each myBar In CommandBars
        If myBar.Type = msoBarTypePopup Then
            myBar.Enabled = True
        End If
    Next
End Sub

谢7楼大侠,代码试用了,右键回来了,,但保存退出后,重新打开excel时,右键又没有了,不知问题出在哪里?

pengli758

倒腾vba首要是保证安全，各路大神的代码非常神奇，莫名的就让你的excel嘎嘣了，如出现右键无法使用（确定不是您的鼠标问题），那么以下代码可完全修复设置。
操作步骤：打开excel--->按“alt+F11"键打开vba编辑器--->选择"Thisworkbook"--->把下面的代码复制进去--->按"F5"执行--->大功告成
Sub 一键修复Excel()
Dim i As Byte
On Error Resume Next
Application.ScreenUpdating = False
For i = 1 To 155
Application.CommandBars(i).Reset
Application.CommandBars(i).Enabled = True
Application.CommandBars(i).Visible = False
Next
Application.CommandBars("Status Bar").Visible = True
For i = 1 To 4
Application.CommandBars(i).Visible = True
Next
With Application
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"
.OnKey "+{DEL}"
.OnKey "+{INSERT}"
.CellDragAndDrop = True
.OnDoubleClick = ""
End With
Application.ScreenUpdating = True
MsgBox "大功告成！" & "你的Excel已恢复。" & Chr(10) & "所有自定义菜单、按钮及功能限制均已解除。", 64, "【友情提示】"
End Sub

SAM-Droid

pengli758 发表于 2013-9-25 13:27
倒腾vba首要是保证安全，各路大神的代码非常神奇，莫名的就让你的excel嘎嘣了，如出现右键无法使用（确定不 ...

这个牛逼,强烈支持