蓝海豹

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

有的时候,我们打开一个从网上下载的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代码复制到打开的窗体中,然后点工具栏上面绿色的小三角,执行该代码。

posted on 2013-01-16 09:53  蓝海豹  阅读(622)  评论(0编辑  收藏  举报