Hi

I have designed a custom toolbar that I want to display whenever a specific
workbook is opened and then turned off again when the workbook closes. Does
anyone know how to put that into the On Open event of the workbook? Thanks.
--
Sharon

You can use the recorder to find the code:

Application.CommandBars("[name]").Visible = True 'to make visible
Application.CommandBars("[name]").Visible = False 'to make invisible


"Sharon" wrote:

Hi

I have designed a custom toolbar that I want to display whenever a specific
workbook is opened and then turned off again when the workbook closes. Does
anyone know how to put that into the On Open event of the workbook? Thanks.
--
Sharon

Thanks Martin - did the trick!!
--
Sharon


"Martin" wrote:

You can use the recorder to find the code:

Application.CommandBars("[name]").Visible = True 'to make visible
Application.CommandBars("[name]").Visible = False 'to make invisible


"Sharon" wrote:

Hi

I have designed a custom toolbar that I want to display whenever a specific
workbook is opened and then turned off again when the workbook closes. Does
anyone know how to put that into the On Open event of the workbook? Thanks.
--
Sharon

Hello;

I had made this procedure same next exemple:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Menu Take Up").Visible = False
End Sub

Private Sub Workbook_Open()
Application.CommandBars("Menu Take Up").Visible = True
End Sub

It´s running well. But when I save to another PC with Excell2007 the toolbar
doesn´t apearence.
Anybody know why it´s happen?
Thanks.


"Sharon" escreveu:

Thanks Martin - did the trick!!
--
Sharon


"Martin" wrote:

You can use the recorder to find the code:

Application.CommandBars("[name]").Visible = True 'to make visible
Application.CommandBars("[name]").Visible = False 'to make invisible


"Sharon" wrote:

Hi

I have designed a custom toolbar that I want to display whenever a specific
workbook is opened and then turned off again when the workbook closes. Does
anyone know how to put that into the On Open event of the workbook? Thanks.
--
Sharon

-----------------------------------------------------------------------------
Our Peering Groups change
Visit : http://spacesst.com/peerin