Rueda del ratón

Hola dargento,

Me gustaria saber como puedo deshabilitar al rueda del raton en una
aplicacion excel,es decir,que no se pueda utilizar en todo el
Workbook.

Pregunta: ?para que quires deshabilitar la rueda del raton? Quizas, sabiendo
el objetivo, podriamos encontrar una solucion menos hostil de cara al
usuario y menos costosa para el programador :-)

Tambien,necesito que el usuario no pueda acceder al menu -> opciones,
para que no pueda cambiar nada de ese menu.

Application.CommandBars("Tools").Controls("&Options...").Enabled = False

Las referncias de las CommandBars y Controls las puedes consultar aqui:
http://support.microsoft.com/kb/q213552/
ojo - por alguna razon todos los nombre de controles que contienen puntos de
suspension los han perdido en esta pagina, pero son necesarios para que
funcione el codigo.

Saludos,
KL

Hola dargento,

Me gustaria saber como puedo deshabilitar al rueda del raton en una
aplicacion excel,es decir,que no se pueda utilizar en todo el
Workbook.

Pregunta: ?para que quires deshabilitar la rueda del raton? Quizas, sabiendo
el objetivo, podriamos encontrar una solucion menos hostil de cara al
usuario y menos costosa para el programador :-)

Tambien,necesito que el usuario no pueda acceder al menu -> opciones,
para que no pueda cambiar nada de ese menu.

Application.CommandBars("Tools").Controls("&Options...").Enabled = False

Las referncias de las CommandBars y Controls las puedes consultar aqui:
http://support.microsoft.com/kb/q213552/
ojo - por alguna razon todos los nombre de controles que contienen puntos de
suspension los han perdido en esta pagina, pero son necesarios para que
funcione el codigo.

Saludos,
KL

hola, KL !

[una sugerencia 'parcial' referente a la herramienta de 'opciones']...

Tambien,necesito que el usuario no pueda acceder al menu -> opciones, para que no pueda cambiar nada de ese menu.

Application.CommandBars("Tools").Controls("&Options...").Enabled = False

el nombre del control ->"&Options..."<- ocasionara un fallo de la macro si se ejecuta en una version NO-ingles :-(
[ademas] cabe la posibilidad de que se 'nicruste' un boton con esa funcionalidad en cualquier 'otra' barra de menus/herramientas :-(
una alternativa es usar la ID del control en un procedimiento 'recursivo' [p.e.]
Dim Barra As CommandBar
On Error Resume Next
For Each Barra In Application.CommandBars
Barra.FindControl(Id:R2, Recursive:=True).Enabled = True
Next
=> sin olvidar 'restablecerlo' a True ANTES de salir de 'la aplicacion' :))

saludos,
hector.

Hola HM,

Gracias por la puntualizacion - pensaba que para VBA los nombres estaban en
ingles como los de las funciones de hoja, pero veo que no.

Saludos,
KL


"Héctor Miguel" wrote in message
news:

hola, KL !

[una sugerencia 'parcial' referente a la herramienta de 'opciones']...

Tambien,necesito que el usuario no pueda acceder al menu -> opciones,
para que no pueda cambiar nada de ese menu.

Application.CommandBars("Tools").Controls("&Options...").Enabled =
False

el nombre del control ->"&Options..."<- ocasionara un fallo de la macro
si se ejecuta en una version NO-ingles :-(
[ademas] cabe la posibilidad de que se 'nicruste' un boton con esa
funcionalidad en cualquier 'otra' barra de menus/herramientas :-(
una alternativa es usar la ID del control en un procedimiento 'recursivo'
[p.e.]
Dim Barra As CommandBar
On Error Resume Next
For Each Barra In Application.CommandBars
Barra.FindControl(Id:R2, Recursive:=True).Enabled = True
Next
=> sin olvidar 'restablecerlo' a True ANTES de salir de 'la aplicacion'
:))

saludos,
hector.

hola, KL !

Gracias por la puntualizacion - pensaba que para VBA los nombres estaban en ingles como los de las funciones de hoja [...]

[hasta donde se]... la 'excepcion a la regla' se alcanza en el nivel 'siguiente' a los que puede llamarse 'CommandBars' :-(

saludos,
hector.