六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

恢复Excel菜单栏、工具栏的代码

Admin | 2013-10-17 8:07:42 | ReadNums | 2804 | 标签 六合开奖结果现场直播 | 打印本页
     

  下面代码的功能,是用来恢复Excel工作界面菜单栏工具栏的办法,因为有的时候,电子表格的菜单栏和工具栏会突然消失。

  使用的时候,在电子表格界面中,按下ALT+F11键,进入到代码编写窗口,将如下代码粘贴到一个模块里面即可运行。

  Dim aa, bb As Boolean
  aa = True
  bb = False
  Application.CommandBars("ply").Enabled = aa
  '右键点工作表标签是否可用
  Application.CommandBars("cell").Enabled = aa
  '右键点单元格是否可用
  Application.CommandBars("toolbar list").Enabled = aa
  '右键点工具栏及“视图”-“工具栏”是否可用
  Application.CommandBars("autocalculate").Enabled = aa
  '右键点状态栏是否可用
  Application.CommandBars("worksheet menu bar").Enabled = aa
  Application.CommandBars(1).Enabled = aa
  '以上两句的作用都是把菜单取消
  Application.CommandBars(2).Enabled = aa
  '暂时未知
  Application.CommandBars(3).Enabled = aa
  '常用工具栏是否可用
  Application.CommandBars(3).Controls(3).Enabled = aa
  '使常用工具栏中第三个“保存”是否可用
  Application.CommandBars(4).Enabled = aa
  '格式工具栏是否可用
  Application.CommandBars(5).Enabled = aa
  '暂时未知
  Application.CommandBars(1).Enabled = aa
  '恢复菜单可用
  Application.CommandBars(1).Controls(1).Enabled = aa
  '使菜单中的“文件”是否可用
  Application.CommandBars("file").Controls("页面设置(&U)...").Enabled = aa
  '菜单中的“文件”中的“页面设置”是否可用
  Application.CommandBars(1).Controls(4).Enabled = aa
  '菜单中的第四个“插入”是否可用
  Application.CommandBars(1).Controls(4).Caption = "victor"
  '更改名称
  Application.CommandBars(1).Reset
  '恢复菜单
  Application.DisplayFormulaBar = aa
  '编辑栏是否显示
  Application.DisplayStatusBar = aa
  '状态栏是否显示
  ActiveWindow.DisplayHeadings = aa
  '行号列标是否显示
  ActiveWindow.DisplayWorkbookTabs = aa
  '工作表标签是否显示
  ActiveWindow.DisplayHorizontalScrollBar = aa
  '水平滚动条是否显示
  ActiveWindow.DisplayVerticalScrollBar = aa
  '垂直滚动条是否显示


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日