Jump to content
  • 34 ¿Te resultaría interesante una carpeta sobre Python para Excelen el foro?

    1. 1. ¿Te resultaría interesante una carpeta sobre Python para Excel en el foro?


      • Sí! Me interesa
      • No me interesa.
      • Otros (Escribe tu respuesta en el tema)

Macro para ocultar todas las barras de herramientas de un libro no afectando al resto.


Recommended Posts

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.

 

Link to comment
Share on other sites

Hace 2 horas, FPAYNO dijo:

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..)... 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

la macro que transcribes aplica a versiones 97/2003, si piensas dar soporte a esas versiones, la dejas y le agregas instrucciones (xml) para la cinta a partir de versiones 2007, consulta por aqui:

Ribbon and Quick Access Toolbar start pages

Link to comment
Share on other sites

Hace 7 horas, Héctor Miguel dijo:

la macro que transcribes aplica a versiones 97/2003, si piensas dar soporte a esas versiones, la dejas y le agregas instrucciones (xml) para la cinta a partir de versiones 2007, consulta por aqui:

Ribbon and Quick Access Toolbar start pages

Esa macro es antigua y no sirve únicamente la estaba utilizando a modo de ejemplo ya que cuando utilizaba esa macro los cambias afectaban a todos los archivos y busco algo distinto que solo afecte a un archivo

Esta duda la tengo que hace varios años y no he podido encontrarle solución. Ahora tenemos las versiones de Excel mejoradas 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy