Macro para ocultar barra de menú completa solo en un libro.

He intentado crear y/o buscar una macro en la que al abrir un libro oculte todas las barras de herramientas solo en este sin afectar a otros libros, ¿Pueden ayudarme?. Utilizo Office 2003.

2 Respuestas

Respuesta
1

Te comento que no se si te funcione esta macro, ya que yo tengo 2007.. prueba y me comentas que tal...

Sub Autoabrir()
' Corre la macro, esconder la barra de herramientas 3 segundo desde ahora.
Application. OnTime Now + TimeValue("00:00:03"), "HideToolbars"
 End Sub
 Sub HideToolbars()
 Dim Tbar as Object
 ' oculta toda las barras en Microsoft Excel
 For Each Tbar in Toolbars
 Tbar.Visible = false
 Next
 End Sub

Para mi mala suerte no funciono.

Pero encontré esta que me oculta la mayoría de las barras que mas se utilizan y las vuelve a activar al cerrar el libro:

Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Visual Basic").Visible = False
Application.CommandBars("Reviewing").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.CommandBars("Formula Auditing").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Formula Auditing").Visible = True
Application.CommandBars("Drawing").Visible = True
Application.CommandBars("Reviewing").Visible = True
Application.CommandBars("Visual Basic").Visible = True
End Sub

Lo malo de esta es que cuando abierto otro libro a la par lo afecta tambien y no muestra las barras de herramientas de este, yo quiero que solo afecte un solo libro en especifico y no todos los que se abran al mismo tiempo, pero bueno.

Muchas gracias por tu ayuda y tu tiempo.

Respuesta

Utiliza Application.Visible=False para ocultar todo excel. Luego en otro sub colocas Application.visible=True para hacer visible el Excel.

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.

Más respuestas relacionadas