Excel 2010 una Macro para hacer con BVA

Para excel 2010 utiliza estas sentencias:

ExecuteExcel4Macro("show.toolbar(""ribbon"", 0)") para ocultar
ExecuteExcel4Macro("show.toolbar(""ribbon"", 1)") para mostrar

No olvides finalizar la consulta

Hola, gracias por tu respuesta, pero algo, no anduvo.

Mirá, yo pegue ésta, ( ExecuteExcel4Macro("show.toolbar(""ribbon"",0)") ) la macro que me surgeris vos, arriba de otras macros que tengo, para versiones anteriores de Excel y no resultó. Mirá, todo quedó de la siguiente manera:

ExecuteExcel4Macro("show.toolbar(""ribbon"",0)")

Application.CommandBars("Formatting").Visible = True

Application.CommandBars("Formatting").Visible = True

Application.CommandBars("Standard").Visible = True

Application.CommandBars("Web").Visible = True

¿Puedo corregirlo de alguna manera?...

Desde ya, muchísimas gracias,

Saludos.

No, las demás líneas no son necesarias, la macro sería así:

sub ejemplo()

ExecuteExcel4Macro("show.toolbar(""ribbon"",0)")

end sub

¿Pero, no debo dejarlas, por las dudas, las otras personas qué usen el archivo, en otras PC´s, y con versiones de Excel, más viejas?...

Las sentencias que te he enviado SOLO son útiles para excel 2007 ó 2010

Han, ¿entonces, de usar un Excel más viejo, no andaría?...

Gracias.

Con los excel viejos tienes que poner las otras sentencias que ya tenías tu

Pero la sentencia moderna no corre en un excel viejo

Antes el código estaba así:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayStatusBar = True

Application.DisplayCommentIndicator = 0

Application.CommandBars("Formatting").Visible = True

Application.CommandBars("Standard").Visible = True

Application.CommandBars("Web").Visible = True

Application.DisplayFormulaBar = True
End Sub

Private Sub Workbook_Open()

Application.DisplayStatusBar = False

Application.DisplayCommentIndicator = 0

Application.CommandBars("Formatting").Visible = False

Application.CommandBars("Standard").Visible = False

Application.CommandBars("Web").Visible = False

Application.DisplayFormulaBar = False
End Sub

Ahora, quedo así:

Sub ejemplo()
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
End Sub

Private Sub Workbook_Open()

Application.DisplayStatusBar = False

Application.DisplayCommentIndicator = 0

Application.CommandBars("Formatting").Visible = False

Application.CommandBars("Standard").Visible = False

Application.CommandBars("Web").Visible = False

Application.DisplayFormulaBar = False
End Sub

¿Puedes reformar por favor, todo este código, tal cual debería quedar?...

Muchas gracias.