1之袁州冬雪创作
打开Excel表格,按下Alt+F11键,打开VBE编辑器,拔出一个模块,粘贴以下代码,按F5键运行即可恢复.
sub 恢复右键菜单()
Application.CommandBars("Cell").Enabled = True
Application.CommandBars("column").Enabled = True
Application.CommandBars("row").Enabled = True
Application.CommandBars("ply").Enabled = True
End sub
2
新启动excel.(注意,删除*.xlb文件也将删除所有工具栏和菜单栏的自定义设置!
一般在这里:
C:\Users\当前用户名\AppData\Roaming\Microsoft\Excel途径下的所有内容.
3
一定是打开过带宏的文件,然后就喜剧了.
当我重新打开新的excel文件,右键到处都欠好使,单元格右键没用,行没用,列没用,工作表称号那边也不成,编辑栏也失效.
于是了两个小时以后,到了方法:
1. 打开新excel文件
2. alt+F11, Ctrl+G
3.到菜单栏里的“运行宏”,输入宏称号“一键修复Excel”,这时候下面加载宏的地方是“VBA
project”,点击“创建”
4.在“Sub 一键修复Excel()”和 end sub之间,复制:
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, "【友情提示】"
5.复制这段代码,从sub到endsub,点击绿的运行按钮,出来
,点击运行
6.大功告成!!!!!!!!!!!
4
终极大招当然是重装软件了
发布评论