Jump to content

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

  • Crear macros Excel

  • Posts

    • La parte de intercalar no la había captado Adjunto de nuevo mi método Espero ahora si, quede listo   Saludos! Mover filas filtradas otra hoja_GP.xlsm
    • Buenas noches nuevamente a los Foristas. A sugerencia de JSD  de los problemas que le planteaba sobre el formulario, abro un nuevo tema. Ofrezco disculpas porque realmente es así como debe ser. El tema es el siguiente: Tengo en este formulario otros problemas que quizás puedan ayudarme: realmente he tratado de ver dónde está el error, pero mis conocimientos no alcanzan y ustedes son los MAESTROS. 1.- En el FrmPersonal trabajo lo que es el listado de Personal con todos los datos y las Nóminas de Salario. En la parte de las nóminas (LstNomina) ya lo configuré de tal manera que con el evento DobleClick pueda traer cualquier trabajador y poder modificar algún dato que por error se haya introducido. Este trabaja Bien, pero en el LstPersonal, estoy tratando de hacer lo mismo y no me está queriendo tomar los datos para su modificación. No me da error, pero no lo hace y he buscado, pero no encuentro el posible problema. 2.- En este mismo Formulario (FrmPersonal), no acabo de poner bien el código VBA para los OptionButton de Sexo. 3.- En este Proyecto también tengo o quiero en el FrmBuscarEntradas poder modificarlo y que a través de un ComboBox o de Botones de Opción poder hacer la búsqueda no sólo de las Entradas, sino también de las Salidas y la Existencia. Esto para evitarme tener que hacer uno para cada uno y reducir los Formularios. ¿Podrías ayudarme con estos temas? Un abrazo a todos. Espero puedas ayudarme y excelente semana para todos. Un abrazo caluroso y cordial. Pino.   Mi Negocio Foro.xlsm
    • Buenas Noches a todos los Foristas. Gracias JSD por su aporte. Revisaré dónde estaba el problema para evitar el mismo error en lo adelante y aprender. Gracias a los demás miembros del Foro también. Tema cerrado.
    • Hola, Gerson. Pues es que solo se mueven todas las salidas de golpe tanto si filtras a mano como si no y todos las referencias de producto a la vez de salidas. No es el ejemplo 2.. no sé... pensaba que la pregunta era clara y tendría fácil solución. El código de mi ejemplo es super sencillo y lo he explicado paso a paso en la macro. En el ejemplo 1 funciona y en el ejemplo 2 es exactamente igual solo que los registros están filtrados.  Comienzo siempre con una salida y luego se van alternando (una entrada, una salida... hay condiciones) hasta que ya no quedan datos en las hojas. Primero para Referencia 1 (filtrada). La idea es al terminar quitar el filtro y hacer lo mismo para referencia 2 (como en el ejemplo 1 que funciona). Gracias.  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy