工作表功能表列全部關閉

[m0610]

1.如何使一xls檔開啟時自動關閉全部的"工作表功能表列"如附圖
2.並在關閉該檔案時自動返回預設以免其他檔案開啟時也跟著沒有工作表功能表列
3.另外在請教EXCEL開啟時沒有工作表功能表列時該如何叫出來???

[附件已被管理員刪除]

[oobird]

Private Sub Workbook_Open()
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Standard").Enabled = False
Application.CommandBars("Formatting").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Toolbar List").Enabled = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Standard").Enabled = True
Application.CommandBars("Formatting").Enabled = True
End Sub
程序放在ThisWorkbook模組

[leonchou]

建議：
如果有可能同時開啟其他活頁簿，
則此檔利用 Workbook_Activate 及 Workbook_Deactivate 事件
來切換工具列的顯示/隱藏，會比 Open / Close 來的實用一些。

也就是說，在切換到其他活頁簿時可以恢復顯示工具列。

[m0610]

感謝oobird兄ˋleonchou 兄~
不好意思...小弟初學有看無懂可否麻煩leonchou 兄做個實例...
另外就是如果打開EXCEL時就已經關閉全部工作表功能表列了...要怎樣才能使它再度開啟呢???
謝謝~~

[leonchou]

只要將 bird 兄的
Workbook_Open 改為 Workbook_Activate ；
Workbook_BeforeClose 改為 Workbook_Deactivate 。

每個有相關程式的檔案都必須做好 "恢復工具列" 的動作。
如果能保持這個好的編程習慣，
那麼你的第 3 個問題也就不是問題了。

你應該不用再問第 3 個問題如何做了吧?
現在你已知道如何在開啟檔案時顯示工具列，
不就等於知道如何顯示工具列了嗎?

[m0610]

嗯嗯~我懂了~
leonchou 兄感激不盡~

[jchou]

每個有相關程式的檔案都必須做好 "恢復工具列" 的動作
請告訴我如何 "恢復工具列" 的動作因為無法恢復
找不到vb程式 謝謝

[附件已被管理員刪除]

[jchou]

上述問題已解決 謝

[jchou]

BOOK2內程式問題 ?
觸發執行定義是否有別麻煩請高手們修改並指教讓我多向各位學習

[附件已被管理員刪除]

[u110686]

各台電腦設定功能表列有所不同,如何擷取各已開啟的功能表列,再予以關閉或顯示?