有的时候,我们打开一个从网上下载的XLS文件,会导致原来的EXCEL菜单发生改变或者某些布局改变以及某些功能如右键菜单被屏蔽等等,这是由于部分XLS文件,需要特殊的功能,所以,在这些文件里面,通常包含某些VBA代码,有意让菜单栏和右键菜单失效,让用户无法进行某种操作。
如果您无意之中中了此招,请您使用如下的方法对症下药,进行解决!
①菜单栏被屏蔽的解决办法
Sub 解除菜单栏屏蔽()
Dim i%
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = True
Next
End Sub
以上代码是VBA代码,可解除屏蔽菜单栏。
②右键菜单被屏蔽的解决办法
Sub 解除右键菜单被屏蔽()
Application.CommandBars("cell").Enabled = True
End Sub
以上代码是VBA代码,可解除右键菜单屏蔽!
③知识扩展
如果以上VBA代码仍然不能帮助您解决问题,那么,请您尝试如下的方法!
在你使用的计算机中,找到如下位置:
C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel
将里面的*.xlb文件删除。之后,打再次打开Excel时,会自动生成*.xlb文件,这样,EXCEL的菜单就完全正常了。
VBA代码执行方式:
1.打开一个excel文档后,按ALT+F11键,打开VBA程序。
2.在VBA程序中,选择【插入】—【模块】,打开模块窗体,然后把VBA代码复制到打开的窗体中,然后点工具栏上面绿色的小三角,执行该代码。