在EXCEL2010中鼠标右键没用·
最近才换的鼠标,在EXCEL2010中鼠标右键没用·但是在其他地方(桌面,网页等)都能正常使用。找的网上输代码的那种没用起,求救下...
最近才换的鼠标,在EXCEL2010中鼠标右键没用·但是在其他地方(桌面,网页等)都能正常使用。找的网上输代码的那种没用起,求救下
展开
3个回答
展开全部
打开EXCEL文件后,按ALT+F11,按ctrl+G,把这句 application.commandbars("cell").enabled = true 粘贴进去,回车。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
倒腾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
操作步骤:打开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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询