menu deshabilitado

Ya encontre, gracias.
Sub DisableMenu()
CommandBars("Worksheet Menu Bar").Controls("Edición").Enabled = False
End Sub

Estaba intentando hacer un bucle para deshabilitar todo el menu pero no me
sale, cualquier ayuda es bienvenida.gracias.

hola, Fabian !

... menu deshabilitado... Solo funciona el menu archivo.
... como volverlo a la normalidad?

[menu] herramientas / personalizar / [ficha] barras de herramientas / barra de menus de la hoja => RESTABLECER

saludos,
hector.

hola, Fabian !

... intentando hacer un bucle para deshabilitar todo el menu pero no me sale [...]

-> si lo que necesitas es desahabilitar [toda] la barra de menus...
CommandBars("Worksheet Menu Bar").Enabled = False
-> si lo que necesitas es deshabilitar [todo] un menu de la barra de menus... [p.e. 'herramientas']
op1: usando el 'caption' del menu ->en el idioma instalado de la aplicacion<- <= OJO
CommandBars("Worksheet Menu Bar").Controls("Herramientas").Enabled = False
op2: haciendo referencia al menu como objeto barra [pero el nombre ->en ingles<-]
CommandBars("Tools").Enabled = False
-> si lo que necesitas es dehabilitar [algunos] comandos en un menu...
utiliza la opcion 2 anterior y usa como 'controles' el caption o el indice del comento en el menu ;)

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

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

hola, Fabian !

> ... menu deshabilitado... Solo funciona el menu archivo.
> ... como volverlo a la normalidad?

[menu] herramientas / personalizar / [ficha] barras de herramientas /

barra de menus de la hoja => RESTABLECER

saludos,
hector.