EXCel鼠标右键不能用解决办法

Posted 2020-10-10 God is Love

EXCel鼠标右键不能用解决办法

倒腾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