codice:
 Private Sub Workbook_Open()
     Application.CommandBars("Costi").Visible = True 
 End Sub

  Private Sub Workbook_BeforeClose(cancel as boolean)
     Application.CommandBars("Costi").Visible = False 
 End Sub
ho provato ad aggiungere questo codice.

ps dopo una svista... funziona!!!