Mostrar el menú en el excel

hola, Martin !

... forma de mostrar el menu principal en Excel
... es que, me han mandado un archivo... que cuando lo abres oculta los menus
pero luego de terminar... los deja oculto, y no encuentro la manera de volver a mostrarlo.

si ya conoces 'de macros'... corre/ejecuta/... una macro con las siguientes lineas
en un modulo de codigo 'normal' ==Sub RestablecerBarraDeMenus()
Application.CommandBars("Worksheet menu bar").Enabled = True
End Sub

si cuaquier duda... comentas?
saludos,
hector.

Hola Héctor Miguel.
Y para ocultar todos los Menús,cómo se hace?
Mil Gracias.

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002

"Héctor Miguel" escribió en el mensaje
news:

hola, Martín !

... forma de mostrar el menú principal en Excel
... es que, me han mandado un archivo... que cuando lo abres oculta los
menús
pero luego de terminar... los deja oculto, y no encuentro la manera de
volver a mostrarlo.

si ya conoces 'de macros'... corre/ejecuta/... una macro con las
siguientes líneas
en un modulo de código 'normal' ==> Sub RestablecerBarraDeMenus()
Application.CommandBars("Worksheet menu bar").Enabled = True
End Sub

si cualquier duda... comentas?
saludos,
Héctor.

hola, Luis !

Y para ocultar todos los Menus [...]

-> por la coleccion de objetos 'CommandBars' se puede hacer referencia tanto a [barras de] menus como herramientas
-> [por lo general] se utiliza la propiedad 'Visible' [True/False] para mostrar/ocutar las barras de menus y comandos
-> [sin embargo]... al -intentar- establecer la propiedad 'Visible' en 'False' a una barra de menus...
[p.e. "Worksheet menu bar" o... "Chart menu bar"] FALLA cuando la hoja activa ES 'del tipo del menu' :))
-> una hoja de calculo/graficos NECESITA 'tener visible'... su barra de menus ["Worksheet..." o Chart..."] ;)
-> en estos casos... la propiedad 'Enabled' estableciendole un valor de 'False'... 'hace las veces de ocultarla' ;)

comentado lo anterior... si suponemos que requieres 'ampliar' el campo visual de la hoja de calculo...
[una alternativa +/- sencilla] muestra a la aplicacion en modo de 'pantalla completa' Y deshabilita la barra de comandos
[p.e.] el siguiente ejemplo 'alterna' entre ocultar/mostrar tanto la barra de comandos como la pantalla completa...
en un modulo de codigo 'normal' ==Sub Alternar_Campo_Visual()
With Application
.DisplayFullScreen = Not .DisplayFullScreen
.CommandBars.ActiveMenuBar.Enabled = Not .DisplayFullScreen
End With
End Sub

si cualquier duda [o lo que necesitas es diferente de lo supuesto]... comentas?
saludos,
hector.

Hola Héctor.
Lo que quisiera es poder ocultar alguna o todas las Barras de Menús en una
Hoja determinada.
Pero solo para alguna Hoja especifica,no para todas.
Con el fin de que el usuario no pueda hacer determinadas modificaciones en
Celdas.No protegiendo u ocultando dichas Celdas,sino por Codigo.
Es posible?

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002

"Héctor Miguel" escribió en el mensaje
news:

hola, Luis !

Y para ocultar todos los Menus [...]

-> por la coleccion de objetos 'CommandBars' se puede hacer referencia
tanto a [barras de] menus como herramientas
-> [por lo general] se utiliza la propiedad 'Visible' [True/False] para
mostrar/ocutar las barras de menus y comandos
-> [sin embargo]... al -intentar- establecer la propiedad 'Visible' en
'False' a una barra de menus...
[p.e. "Worksheet menu bar" o... "Chart menu bar"] FALLA
cuando la hoja activa ES 'del tipo del menu' :))
-> una hoja de calculo/graficos NECESITA 'tener visible'... su
barra de menus ["Worksheet..." o Chart..."] ;)
-> en estos casos... la propiedad 'Enabled' estableciendole un valor de
'False'... 'hace las veces de ocultarla' ;)

comentado lo anterior... si suponemos que requieres 'ampliar' el campo
visual de la hoja de calculo...
[una alternativa +/- sencilla] muestra a la aplicacion en modo de
'pantalla completa' Y deshabilita la barra de comandos
[p.e.] el siguiente ejemplo 'alterna' entre ocultar/mostrar tanto la barra
de comandos como la pantalla completa...
en un modulo de codigo 'normal' ==> Sub Alternar_Campo_Visual()
With Application
.DisplayFullScreen = Not .DisplayFullScreen
.CommandBars.ActiveMenuBar.Enabled = Not .DisplayFullScreen
End With
End Sub

si cualquier duda [o lo que necesitas es diferente de lo supuesto]...
comentas?
saludos,
hector.

hola, Luis !

... quisiera... poder ocultar alguna o todas las Barras de Menus en una Hoja determinada.
... que el usuario no pueda hacer determinadas modificaciones en Celdas.
No protegiendo u ocultando dichas Celdas,sino por Codigo.

1) para ocultar [NO alguna, sino] todas las barras de menus [y comandos] en una hoja 'determinada'...
en el modulo de codigo de 'esa determinada' hoja ==Private Sub Worksheet_Activate()
Application.DisplayFullScreen = True
Application.CommandBars.ActiveMenuBar.Enabled = False
End Sub
Private Sub Worksheet_Deactivate()
Application.DisplayFullScreen = False
Application.CommandBars.ActiveMenuBar.Enabled = True
End Sub

2) para hacer 'lo mismo' PERO SOLO con 'algunas' barras de menus y comandos...
-> habria que 'determinar' cuales si, y cuales no [ademas 'pensar' que hacer si hay alguna 'pesonalizada'] :-(
Y [sobre todo] 'cuidar' de no 'echarle a perder' al usuario 'en turno' su arreglo ->personal<- de las barras <\°|°/>

3) para que el usuario NO pueda hacer... 'determinadas modificaciones en celdas'... [me parece que]...
falta informacion mas 'detallada' acerca de cuales son esas 'determinadas modificaciones' :))

comentas?
saludos,
hector.