資訊中心

資訊中心——技術(shù)交流

信息化文件注意事項及解決EXCEL工具欄不見(jiàn)的問(wèn)題

時(shí)間:2012年03月02日

信息化文件注意事項及解決EXCEL工具欄不見(jiàn)的問(wèn)題

    1、信息化操作人員在傳輸文件或者其他文本文檔時(shí),輸入文件主題請勿帶入特殊符號如""、\等。以免造成文件發(fā)送者或接受者信息化系統文件接收出現加載錯誤的現象。
    2、解決EXCEL常用工具欄不見(jiàn)的問(wèn)題。
當電腦軟件office中的EXCEL的常用工具欄不見(jiàn)時(shí),用以下方法解決:打開(kāi)一個(gè)excel文件,按ALT+F11,然后打開(kāi)窗口導航欄中的插入——模塊,出現新的對面框后將下面的這段語(yǔ)句粘貼進(jìn)去。然后按F5執行程序語(yǔ)句,保存關(guān)閉即可?;氐紼XCEL操作界面點(diǎn)擊鼠標右鍵重新選擇常用工具欄。


Sub aaa()
 Dim aa, bb As Boolean
 aa = True
 bb = False
 Application.CommandBars("ply").Enabled = aa
 '右鍵點(diǎn)工作表標簽是否可用
 Application.CommandBars("cell").Enabled = aa
 '右鍵點(diǎn)單元格是否可用
 Application.CommandBars("toolbar list").Enabled = aa
 '右鍵點(diǎn)工具欄及“視圖”-“工具欄”是否可用
 Application.CommandBars("autocalculate").Enabled = aa
 '右鍵點(diǎn)狀態(tài)欄是否可用
 Application.CommandBars("worksheet menu bar").Enabled = aa
 Application.CommandBars(1).Enabled = aa
 '以上兩句的作用都是把菜單取消
 Application.CommandBars(2).Enabled = aa
 '暫時(shí)未知
 Application.CommandBars(3).Enabled = aa
 '常用工具欄是否可用
 Application.CommandBars(3).Controls(3).Enabled = aa
 '使常用工具欄中第三個(gè)“保存”是否可用
 Application.CommandBars(4).Enabled = aa
 '格式工具欄是否可用
 Application.CommandBars(5).Enabled = aa
 '暫時(shí)未知
 Application.CommandBars(1).Enabled = aa
 '恢復菜單可用
 Application.CommandBars(1).Controls(1).Enabled = aa
 '使菜單中的“文件”是否可用
 Application.CommandBars("file").Controls("頁(yè)面設置(&U)...").Enabled = aa
 '菜單中的“文件”中的“頁(yè)面設置”是否可用
 Application.CommandBars(1).Controls(4).Enabled = aa
 '菜單中的第四個(gè)“插入”是否可用
 Application.CommandBars(1).Controls(4).Caption = "victor"
 '更改名稱(chēng)
 Application.CommandBars(1).Reset
 '恢復菜單
 Application.DisplayFormulaBar = aa
 '編輯欄是否顯示
 Application.DisplayStatusBar = aa
 '狀態(tài)欄是否顯示
 ActiveWindow.DisplayHeadings = aa
 '行號列標是否顯示
 ActiveWindow.DisplayWorkbookTabs = aa
 '工作表標簽是否顯示
 ActiveWindow.DisplayHorizontalScrollBar = aa
 '水平滾動(dòng)條是否顯示
 ActiveWindow.DisplayVerticalScrollBar = aa
 '垂直滾動(dòng)條是否顯示
 End Sub