codigo para ocultar y mostrar pulsando un boton

Hola,

Prueba el siguiente código

Sub test()
ActiveWindow.DisplayWorkbookTabs = (-1 - ActiveWindow.DisplayWorkbookTabs)
End Sub

Si están visibles las oculta, si están ocultas las muestra.
Esa configuración se aplica a la ventana activa, si tienes dos ventanas solo
lo cambia en la activa.

Un saludo,
Juan


Consulta Original
"MyVi" escribió
Hola,

Quisiera mostrar o no la ActiveWindow.DisplayWorkbookTabs segun pulso
un boton en una hoja de Excel.
Es decir, cuando apreto una vez el boton quisiera que la "fichas de
hojas" se ocultaran, y cuando lo vuelvo a apretar que estas fueran
visibles. ¿Alguna idea de cómo hacerlo?

Bien, tengo creado el boton, esto lo tengo asociado a una macro, pero
el código de esta es el que no me acaba de salir.

Gracias

MyVi

Eso me ha ido perfecto, justo lo que necesitaba.

Concretamente, lo que he hecho ha sido poner a grabar una macro,(en
Excel 2007 en la ficha Vista) he puesto simplemente un número en una
celda y la he parado.
De ahí he pulsado ALT+F11 para que me mostrara la ventaba de VBA. Ahí
me he ido a módulos/modulo 1, donde he encontrado la macro creada. He
borrado su código y lo he reemplazado por:

ActiveWindow.DisplayWorkbookTabs = (-1 -
ActiveWindow.DisplayWorkbookTabs)


De ahi he vuelto a la hoja donde quiero el botón, (desde Excel 2007)
he habilitado la Ficha Programador desde Opciones de Excel (en ese
botón arriba a la izquierda) en "más frecuentes". En la ficha
Programador he insertado un botón de "controles de formulario" y este
botón lo he asociado a la macro y le he puesto el nombre (al botón)
que he requerido.

Listo, funciona perfectamente.

Gracias por tu ayuda (muy importante por cierto) Juan M.

MyVi.

Gracias a ti por la contestación y por dejar plasmado como hay que ponerlo
en práctica.

Un saludo,
Juan


"MyVi" escribió
Eso me ha ido perfecto, justo lo que necesitaba.

Concretamente, lo que he hecho ha sido poner a grabar una macro,(en
Excel 2007 en la ficha Vista) he puesto simplemente un número en una
celda y la he parado.
De ahí he pulsado ALT+F11 para que me mostrara la ventaba de VBA. Ahí
me he ido a módulos/modulo 1, donde he encontrado la macro creada. He
borrado su código y lo he reemplazado por:

ActiveWindow.DisplayWorkbookTabs = (-1 -
ActiveWindow.DisplayWorkbookTabs)


De ahi he vuelto a la hoja donde quiero el botón, (desde Excel 2007)
he habilitado la Ficha Programador desde Opciones de Excel (en ese
botón arriba a la izquierda) en "más frecuentes". En la ficha
Programador he insertado un botón de "controles de formulario" y este
botón lo he asociado a la macro y le he puesto el nombre (al botón)
que he requerido.

Listo, funciona perfectamente.

Gracias por tu ayuda (muy importante por cierto) Juan M.

MyVi.