Excel 工具栏中没了“常用”和“格式” 代码恢复（清理工具栏）

Excel 工具栏中没了“常用”和“格式” 代码恢复（清理工具栏）

           Excel工具栏中没了“常用”和“格式”，自定义中也看不见（运行了带菜单的XLS表格）。把Excel恢复安装不行，卸后重新安装后还是一样，只好用代码恢复了。

【方法】

    '1、“按ALT+F11”，进入VBA编程；
    '2、然后单击鼠标右键——插入模块；
    '3、往模块里面添加代码——[运行子过程/用户窗体]按键，就可以运行。

'----将下面代码粘入----

 Sub Del_menu ()
   Dim aa, bb As Boolean
   bb = False
   aa = True
   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 '垂直滚动条是否显示
End Sub

 

Private Sub tbAppComBarsFalse()
   Select Case Application.Version
       Case "12.0"
            'myVersion = "2007"
            Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
        Case Else
            'Application.Visible = False '显示工作簿
            Application.CommandBars(1).Enabled = False ' 隐藏菜单栏
            Application.DisplayFullScreen = True ' 全屏显示
            Application.CommandBars("Full Screen").Visible = False
            ActiveWindow.DisplayHorizontalScrollBar = False ' 隐藏滚动条
            ActiveWindow.DisplayVerticalScrollBar = False
    End Select
 End Sub

Private Sub tbAppComBarsTrue()
   Select Case Application.Version
       Case "12.0"
            'myVersion = "2007"
            Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
        Case Else
            Application.CommandBars(1).Enabled = True ' 隐藏菜单栏
            Application.DisplayFullScreen = False ' 全屏显示
            'Application.CommandBars("Full Screen").Visible = True
            'ActiveWindow.DisplayHorizontalScrollBar = True ' 隐藏滚动条
            'ActiveWindow.DisplayVerticalScrollBar = True
            With ActiveWindow
                .DisplayHorizontalScrollBar = True
                .DisplayVerticalScrollBar = True
            End With
    End Select
End Sub