excel标题栏没有常用、格式时怎么处理？

作者:课课家教育更新于： 2019-03-25 10:18:54

　　当你的Excel标题栏中没有常用跟格式时，你的第一反应一定是卸载重新安装，课课家现在教你怎么处理这种情况。

　　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 

　　PrivateSubtbAppCombarsFalse()

　　SelectCaseApplication.Version

　　Case"12.0"

　　'myVersion="2007"

　　Application.ExecuteExcel4Macro"SHOW.TOOLBAR(""Ribbon"",False)"

　　CaseElse

　　'Application.Visible=False'显示工作簿

　　Application.CommandBars(1).Enabled=False'隐藏菜单栏

　　Application.DisplayFullScreen=True'全屏显示

　　Application.CommandBars("FullScreen").Visible=False

　　ActiveWindow.DisplayHorizontalScrollBar=False'隐藏滚动条

　　ActiveWindow.DisplayVerticalScrollBar=False

　　EndSelect

　　EndSub

　　PrivateSubtbAppComBarsTrue()

　　SelectCaseApplication.Version

　　Case"12.0"

　　'myVersion="2007"

　　Application.ExecuteExcel4Macro"SHOW.TOOLBAR(""Ribbon"",True)"

　　CaseElse

　　Application.CommandBars(1).Enabled=True'隐藏菜单栏

　　Application.DisplayFullScreen=False'全屏显示

　　'Application.CommandBars("FullScreen").Visible=True

　　'ActiveWindow.DisplayHorizontalScrollBar=True'隐藏滚动条

　　'ActiveWindow.DisplayVerticalScrollBar=True

　　WithActiveWindow

　　.DisplayHorizontalScrollBar=True

　　.DisplayVerticalScrollBar=True

　　EndWith

　　EndSelect

　　EndSub

　　宏程序自动被横线分成三部分  

　　4、分别运行三部分宏内容 即选中某一部分宏内容，并点击（运行）按钮 

　　5、运行结束后，关闭宏后台 

　　6、回到EXCEL界面，在标题栏“空白”处点击右键，观察里面是否有“常用”和“格式”，分别选中，点击保存后关闭EXCEL，再次打开时问题即可解决。