热线电话: 0537-2316625 968107 | sdjyrljt@163.com | 联系 欢迎登录聚源热力网站

资讯中心

资讯中心——技术交流

信息化文件注意事项及解决EXCEL工具栏不见的问题

时间:2012年03月02日

信息化文件注意事项及解决EXCEL工具栏不见的问题

    1、信息化操作人员在传输文件或者其他文本文档时,输入文件主题请勿带入特殊符号如""、\等。以免造成文件发送者或接受者信息化系统文件接收出现加载错误的现象。
    2、解决EXCEL常用工具栏不见的问题。
当电脑软件office中的EXCEL的常用工具栏不见时,用以下方法解决:打开一个excel文件,按ALT+F11,然后打开窗口导航栏中的插入——模块,出现新的对面框后将下面的这段语句粘贴进去。然后按F5执行程序语句,保存关闭即可。回到EXCEL操作界面点击鼠标右键重新选择常用工具栏。


Sub aaa()
 Dim aa, bb As Boolean
 aa = True
 bb = False
 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