在EXCEL中有没有遇到你的工具栏没有了，无法从右键下添加，以下代码可以帮忙解决

fangcheng52013

     新建一个模块复制以下代码进去运行就可以了，
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
      '垂直滚动条是否显示
           End Sub

西安专家

谢谢分享