Foro Excel

jltellez · por **jltellez** » 27 Sep 2006 15:09

Hola de nuevo.... Hago esta pregunta por si existiera la respuesta.
¿Se puede escribir una formula o macro que haga que al abrir una hoja, se oculten o cierren todas las barras de herramientas que hubieran abiertas?

Gracias

Jose Luis

jimcov · por **jimcov** » 29 Sep 2006 02:18

hola jltellez

Asi como este libro

jltellez · por **jltellez** » 29 Sep 2006 02:51

Exactamente eso es lo que queria jimcov MUCHAS GRACIAS
Jose Luis

d.vargas · por **d.vargas** » 04 Oct 2006 13:43

Amigossss,

a mi me ha funcionado de maravillas pero me ha quedado el pequeño problema de que me quede sin el menu bar no solo en este archivo, sino en cualquier archivo de excel. A ver quien puede ayudarme con esta situacion, pues sin este menuu los demas archivos de excel son un verdadero problema.

A ver quien me da una mano en esta,

Saludos!

dawy · por **dawy** » 04 Oct 2006 14:21

Hola tenia ese mismo problema pero encontre este archivo no se si te puede servir

Dawy

jltellez · por **jltellez** » 04 Oct 2006 14:53

Hola Dawy ese archivo su codigo esta protegido asi que no se puede ver como se oculta la barra de menus ¿Es posible saber su contraseña? Gracias.
Jose Luis

hansabel · por **hansabel** » 04 Oct 2006 18:58

Para ocular la barra:
On Error Resume Next
For i = 1 To 10
Application.CommandBars("Worksheet Menu Bar").Controls(1).Delete
Next iPara volver a mostrarla:
Application.CommandBars("Worksheet Menu Bar").Reset
espero les sirva, saludos

jltellez · por **jltellez** » 05 Oct 2006 07:03

Perdona Hansabel, pero exactamente ¿donde se tiene que poner eso, para ocultar la barra de herramientas y despues volverla a ver? Un saludo

José Luis

jimcov · por **jimcov** » 05 Oct 2006 20:00

Hola a todos

Con esta Hoja recuperan los menus mas tradicionales
solo tienen que abrirla y activar las macros y listo

jimcov

jimcov · por **jimcov** » 05 Oct 2006 20:01

perdon se me olvido adjuntarla

hansabel · por **hansabel** » 07 Oct 2006 08:03

Lo puedes poner en un modulo, o mejor en el workbook open, así al abrir el archivo se ejecutara:
Private Sub Workbook_Open()
On Error Resume Next
For i = 1 To 10
Application.CommandBars("Worksheet Menu Bar").Controls(1).Delete
Next i
End Sub
y el codigo para volver a mostrar la barra lo podrias poner en workbook before close, así al cerrar el archivo con el macro automaticamente se vuelve a mostrar la barra de herramientas:
Private Sub Workbook_BeforeClose (Cancel as Boolean)
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub
espero te sirva, saludos

jltellez · por **jltellez** » 07 Oct 2006 09:23

Muchas gracias amigo, funciona perfectamente. Un saludo

Foro Excel

Ocultar O Cerrar Todas Las Barras De Herramientas

Ocultar O Cerrar Todas Las Barras De Herramientas

Re: Ocultar O Cerrar Todas Las Barras De Herramientas

Re: Ocultar O Cerrar Todas Las Barras De Herramientas

Re: Ocultar O Cerrar Todas Las Barras De Herramientas

Re: Ocultar O Cerrar Todas Las Barras De Herramientas

Re: Ocultar O Cerrar Todas Las Barras De Herramientas

Re: Ocultar O Cerrar Todas Las Barras De Herramientas

Re: Ocultar O Cerrar Todas Las Barras De Herramientas

Re: Ocultar O Cerrar Todas Las Barras De Herramientas

Re: Ocultar O Cerrar Todas Las Barras De Herramientas

¿Quién está conectado?