在excel工作表中鼠标的右键不能使用

hzruziniu

录入这断代码试试
Private Sub Workbook_Open()
With Application
.CommandBars("Cell").Enabled = True '单元格右键菜单
.CommandBars("ply").Enabled = True '工作表标签右键菜单
End With
End Sub

taiyangbei

不行，行和列上都不能使用右键，右键单击某列或者某行出不来

taiyangbei

按照9楼的做了，行了，谢谢啊

ljpgxl1208

我的也出现了，但按照各位的方法都行不通，请高手出现帮忙解决！我是菜鸟（不懂编码），请尽量说详细，谢谢！

[ 本帖最后由 ljpgxl1208 于 2011-1-7 17:18 编辑 ]

tianyk

我按9楼和21楼的方法都行，就是只能解除本工作簿的问题，怎样解除全部呢？用什么方法能找到那个禁用右键代码在哪个表藏着？
找到答案了：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

[ 本帖最后由 tianyk 于 2011-7-29 09:47 编辑 ]

WESLEY_WANG

25楼的，你太NB了，按你的方法，问题终于解决了，非常感谢！（我的是VISTAR系统,07excel,无法找到前面大侠们说的，删除"*.xlb"文件！）。

小秋

谢谢四楼，这两天自已也遇到这样的问题，正头痛呢
现在解决了

莲生

tianyk 发表于 2011-7-29 08:54
我按9楼和21楼的方法都行，就是只能解除本工作簿的问题，怎样解除全部呢？用什么方法能找到那个禁用右键代码 ...

哭了！！！！！！！！！！！！！！！
找了两小时！！！！！！！！！！！！11
救了我！！！！！！！！！！！！！！！！！！！！！

neke520

tianyk 发表于 2011-7-29 08:54
我按9楼和21楼的方法都行，就是只能解除本工作簿的问题，怎样解除全部呢？用什么方法能找到那个禁用右键代码 ...

刚好用上，爽啊，赞一个

guang0001

25楼的方法太牛了！！！！！