Hiding all tool bars/Menus in Excel

[RiazShahid]

Can any one please let me know how I can hide all the tool bars/ Menus in Excel, except the one I created for myself.
The tool bars must remain hide untill I close this workbook.

 

[xld]

Option Explicit

Private mFormulaBar

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim oCB As CommandBar
    For Each oCB In Application.CommandBars
        oCB.Enabled = True
    Next oCB
    
    Application.DisplayFormulaBar = mFormulaBar
End Sub

Private Sub Workbook_Open()
Dim oCB As CommandBar
    For Each oCB In Application.CommandBars
        oCB.Enabled = False
    Next oCB
    
    mFormulaBar = Application.DisplayFormulaBar
    Application.DisplayFormulaBar = False
End Sub

This is workbook event code.
To input this code, right click on the Excel icon on the worksheet
(or next to the File menu if you maximise your workbooks),
select View Code from the menu, and paste the code

 

[RiazShahid]

WOW!
It really works....But in this case there is no too bar shown. How I will show mine. The name of my customized toolbar is "MyMenuBar"

 

[RiazShahid]

Will any one please guide.....

 

[RiazShahid]

Can some body please paste code....... How can I show only the mytoolbar and hide all others?????

 

[xld]

Option Explicit

Private mFormulaBar

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim oCB As CommandBar
    For Each oCB In Application.CommandBars
        oCB.Enabled = True
    Next oCB
    
    Application.DisplayFormulaBar = mFormulaBar
End Sub

Private Sub Workbook_Open()
Dim oCB As CommandBar
    For Each oCB In Application.CommandBars
        oCB.Enabled = False
    Next oCB

   Application.Commandbars("MyMenuBar").Enabled = True
    
    mFormulaBar = Application.DisplayFormulaBar
    Application.DisplayFormulaBar = False
End Sub

 

[RiazShahid]

WOOOOOOWWWW.
Really stunning..... Thanks a lot "xld" this is exactly what's needed.