資訊中心——技術交流
信息化文件注意事項及解決EXCEL工具欄不見的問題
1、信息化操作人員在傳輸文件或者其他文本文檔時,輸入文件主題請勿帶入特殊符號如""、\等。以免造成文件發送者或接受者信息化系統文件接收出現加載錯誤的現象。
2、解決EXCEL常用工具欄不見的問題。
當電腦軟件office中的EXCEL的常用工具欄不見時,用以下方法解決:打開一個excel文件,按ALT+F11,然后打開窗口導航欄中的插入——模塊,出現新的對面框后將下面的這段語句粘貼進去。然后按F5執行程序語句,保存關閉即可?;氐紼XCEL操作界面點擊鼠標右鍵重新選擇常用工具欄。
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