Macro para ocultar todas las barras de herramientas de un libro no afectando al resto.
publicado
Buenas noches.
Estoy buscando una macro que realice la siguiente funcionalidad en un solo archivo.
Una vez abierto el libro se ejecute automáticamente una macro la cual oculte todas las barras de los extremos (barra de menú, barra de herramientas, cinta de opciones, barra de formula, etc..).
La dificultad de esto es que solo lo tiene que dejar las barras ocultas en un libro dejando el resto de libros abiertos y pendientes de abrir con las barras habilitadas.
Únicamente he encontrado está macro la cual te oculta todos los archivos abiertos. por lo que no me sirve
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)
Buenas noches.
Estoy buscando una macro que realice la siguiente funcionalidad en un solo archivo.
Una vez abierto el libro se ejecute automáticamente una macro la cual oculte todas las barras de los extremos (barra de menú, barra de herramientas, cinta de opciones, barra de formula, etc..).
La dificultad de esto es que solo lo tiene que dejar las barras ocultas en un libro dejando el resto de libros abiertos y pendientes de abrir con las barras habilitadas.
Únicamente he encontrado está macro la cual te oculta todos los archivos abiertos. por lo que no me sirve
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
Gracias por adelantado y un saludo.