EXCEL没有“常用”和“格式”的处理方法.doc

EXCEL没有“常用”和“格式”的处理方法一、Office常用工具栏丢失的解决操作步骤11、现象12、解决方案一23、解决方案二3一、 Office常用工具栏丢失的解决操作步骤1、现象打开任意一个EXCEL文件“常用”及“格式”工具栏标题栏没有“常用”和“格式”2、解决方案一在标题栏“空白”处点击右键，观察里面是否有“常用”和“格式”如果有请分别选中即可解决当前问题，如果没有，请按“解决方案二”处理。3、解决方案二1、打开EXCEL后，按Alt+F11，打开宏编辑后台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 SubPrivate 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 SelectEnd