Deshabilitar Personalizar

Hola Adriano,

Para las versiones Excel 97 y 2000 podrias usar una de las siguientes
opciones:

1) Application.CommandBars("Toolbar list").Enabled = False
pero el problema esta en que el usuario sigue teniendo la posibilidad (si es
que la conoce o se le ocurre) de hacer doble-clic sobre el area gris donde
se encuentran las barras de menus y herramientas para abrir el dilogo
Personalizar :-((

2) Esta opcion desabilita tambien la posibilidad de hacer doble-clic, pero
lo hace para todo, es decir no se podra usar doble-clic en ninguna parte de
la aplicacion :-(( (eso hasta que hagas: Application.OnDoubleClick = "" ).
Coloca este codigo en un modulo estandar - no de hoja, libro o formulario.

'--Inicio Codigo--
Sub DeshabilitarPersonalizacion()
Application.CommandBars("Toolbar list").Enabled = False
Application.OnDoubleClick = "PasoDeTi"
End Sub

Sub PasoDeTi()
End Sub
'--Fin Codigo--

Para Excel 2002 o superior creo que bastaria con:

Application.CommandBars.DisableCustomize = True

Saludos,
KL


"Adriano D'Ambra" wrote in message
news:

Hola a todos, tanto tiempo.
Volví por estos pagos.

Les cuento, quiero deshabilitar botones de las barras de herramientas. Lo
hice tomando las pautas de KL y anduvo todo ok. Pero me di cuenta que
ahora tengo que deshabilitar la opción Personalizar que se accede desde el
menú Contextual al hacer botón derecho sobre las barras de herramientas,
porque sino nada impide que el usuario cree una nueva barra y tire en ella
los botones que yo deshabilité.
Lo que sí pude hacer es hacer que las barras existentes no puedan ser
Customizadas.
Pero cómo impido con las nuevas???

Estoy accediendo justamente a

Application.CommandBars("Built-in
Menus").Controls(9).Controls(797).Enabled = False

y nada!
Y se supone que está accediendo a esa opción de menú.

Alguna pista???

Saludos.
Adriano

Genial como siempre KL, con la opción de XP ya está, ya que estoy
desarrollando para 2002 o superior.

Me estaba enroscando la vida y era esta instrucción tan simple. Estaba
listando todos los menús del Excel con otro código que me habías pasado al
cual amplié para mirar los ID, index, caption, Type, etc de todas las
barras. Pero al acceder a esa opción (La Personalizar), no hacía nada.
Por otro lado veo que no se por qué no me listó justamente Toolbar list. En
otro post te paso el código que estaba utilizando, evidentemente no me está
listando algunas otras barras y comandos.

Saludos y muchas gracias de nuevo.

"KL" escribió en el mensaje
news:

Hola Adriano,

Para las versiones Excel 97 y 2000 podrias usar una de las siguientes
opciones:

1) Application.CommandBars("Toolbar list").Enabled = False
pero el problema esta en que el usuario sigue teniendo la posibilidad (si

es

que la conoce o se le ocurre) de hacer doble-clic sobre el area gris donde
se encuentran las barras de menus y herramientas para abrir el dilogo
Personalizar :-((

2) Esta opcion desabilita tambien la posibilidad de hacer doble-clic, pero
lo hace para todo, es decir no se podra usar doble-clic en ninguna parte

de

la aplicacion :-(( (eso hasta que hagas: Application.OnDoubleClick = "" ).
Coloca este codigo en un modulo estandar - no de hoja, libro o formulario.

'--Inicio Codigo--
Sub DeshabilitarPersonalizacion()
Application.CommandBars("Toolbar list").Enabled = False
Application.OnDoubleClick = "PasoDeTi"
End Sub

Sub PasoDeTi()
End Sub
'--Fin Codigo--

Para Excel 2002 o superior creo que bastaria con:

Application.CommandBars.DisableCustomize = True

Saludos,
KL


"Adriano D'Ambra" wrote in message
news:
> Hola a todos, tanto tiempo.
> Volví por estos pagos.
>
> Les cuento, quiero deshabilitar botones de las barras de herramientas.

Lo

> hice tomando las pautas de KL y anduvo todo ok. Pero me di cuenta que
> ahora tengo que deshabilitar la opción Personalizar que se accede desde

el

> menú Contextual al hacer botón derecho sobre las barras de herramientas,
> porque sino nada impide que el usuario cree una nueva barra y tire en

ella

> los botones que yo deshabilité.
> Lo que sí pude hacer es hacer que las barras existentes no puedan ser
> Customizadas.
> Pero cómo impido con las nuevas???
>
> Estoy accediendo justamente a
>
> Application.CommandBars("Built-in
> Menus").Controls(9).Controls(797).Enabled = False
>
> y nada!
> Y se supone que está accediendo a esa opción de menú.
>
> Alguna pista???
>
> Saludos.
> Adriano
>