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

《EXCEL没有“常用”和“格式”的处理方法》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

2、下列代码粘贴至宏后台代码内容：SubDel_menu()Dimaa,bbAsBooleanbb=Falseaa=TrueApplication.CommandBars("ply").Enabled=aa'右键点工作表标签是否可用Application.CommandBars("cell").Enabled=aa'右键点单元格是否可用Application.CommandBars("toolbarlist").Enabled=aa'右键点工具栏及“视图”－“工具栏”是否可用Application.CommandB

3、ars("autocalculate").Enabled=aa'右键点状态栏是否可用Application.CommandBars("worksheetmenubar").Enabled=aaApplication.CommandBars(1).Enabled=aa'以上两句的作用都是把菜单取消Application.CommandBars(2).Enabled=aa'暂时未知Application.CommandBars(3).Enabled=aa'常用工具栏是否可用Application.CommandBa

4、rs(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.Com

5、mandBars("file").Controls("页面设置(&U)...").Enabled=aa'菜单中的“文件”中的“页面设置”是否可用Application.CommandBars(1).Controls(4).Enabled=aa'菜单中的第四个“插入”是否可用Application.CommandBars(1).Controls(4).Caption="victor"'更改名称Application.CommandBars(1).Reset'恢复菜单Application.DisplayFormu

6、laBar=aa'编辑栏是否显示Application.DisplayStatusBar=aa'状态栏是否显示ActiveWindow.DisplayHeadings=aa'行号列标是否显示ActiveWindow.DisplayWorkbookTabs=aa'工作表标签是否显示ActiveWindow.DisplayHorizontalScrollBar=aa'水平滚动条是否显示ActiveWindow.DisplayVerticalScrollBar=aa'垂直滚动条是否显示EndSubPrivateSub

7、tbAppComBarsFalse()SelectCaseApplication.VersionCase"12.0"'myVersion="2007"Application.ExecuteExcel4Macro"SHOW.TOOLBAR(""Ribbon"",False)"CaseElse'Application.Visible=False'显示工作簿Application.CommandBars(1).Enabled=False'隐藏菜单栏Application.DisplayFullScreen=True'

8、全屏显示Application.CommandBars("FullScreen").Visible=FalseActiveWindow.DisplayHorizontalScrollBar=False'隐藏滚动条ActiveWindow.DisplayVerticalScrollBar=FalseEndSelectEndSubPrivateSubtbAppComBarsTrue()Se