Hide / Unhide toolbars for a particular worksheet

[sindhuja]

Hi,

Want to hide all the toolbars except the menubar using coding.... and unhide while closing the excel file.

Tried some coding..... its working for the all the excel applications. want tis coding to be applicabel only for the particular excel file...

-Sindhuja

[Aussiebear]

Would you like to show the code you have so far?

[Bob Phillips]

[vba]

Option Explicit

Public WithEvents App As Application

Private mFormulaBar

Private Sub App_WindowDeactivate(ByVal Wb As Workbook, ByVal Wn As Window)
Dim oCB As CommandBar
If Wb.Name = "myfile.xls" Then

For Each oCB In Application.CommandBars
oCB.Enabled = True
Next oCB

Application.DisplayFormulaBar = mFormulaBar
End If
End Sub

Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
Dim oCB As CommandBar
If Wb.Name = "myfile.xls" Then

For Each oCB In Application.CommandBars
oCB.Enabled = False
Next oCB

mFormulaBar = Application.DisplayFormulaBar
Application.DisplayFormulaBar = False

End If
End Sub

Private Sub Workbook_Open()
Set App = Application
End Sub
[/vba]

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

[GTO]

Want to hide all the toolbars except the menubar...

Greetings Sinduja,

An ever-so-slight tweak to Bob's code:

[vba]Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
Dim oCB As CommandBar

If Wb.Name = "myfile.xls" Then

For Each oCB In Application.CommandBars
If Not oCB.Name = "Worksheet Menu Bar" _
Then oCB.Enabled = False
Next oCB

mFormulaBar = Application.DisplayFormulaBar
Application.DisplayFormulaBar = False

End If
End Sub[/vba]

Hope that helps,

Mark

[sindhuja]

Thank you everyone for all your help..
Its works perfectly.......

-sindhuja

[sindhuja]

Toolbars and menu bar missing - while opening XL 2003

Any help please...

[GTO]

Greetings sindhuja,

Say, you zipped an empty workbook

Mark

[sindhuja]

Hi Mark...

When I open the excel application its not showing the menu bars and all the custom menus….

Its for all the excel file I open… don’t know how to proceed further to view all the menus..

Attachment was the sample excel…

Any help please...

-Sindhuja

[Bob Phillips]

Because, as Mark said, your workbook doesn't contain any code, never mind the code we gave you. You have to install the code.