Pregunta para KL o Hector

02/08/2005 - 19:55 por JR | Informe spam
En dias pasados realice una consulta que me fue respondida por el trabajo
tan dedicado de ustedes
mi pregunta es la sig:
en el archivo ejemplo de la articulo de Hector Miguel sobre el asunto:
http://www.sistemaslym.net/vba/excel/exarc1.html, encontre una parte del
codigo que me permite habilitar y deshabilitar comandos, la cual llama a una
funcion que se llama atenuarprohibidos, y en ese codigo encontre que se
pueden "deshabilitar" los comandos para prohibir algunas acciones, el caso
es que me gustaria encontrar la forma en como deshabilitar la opcion de
Arrastrar y rellenar presionando el boton derecho del mouse y colocando el
cursoren la parte inferior derecha o mi pregunta es ¿existe otro
metodo?.

Gracias de antemano.
FJRB

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
02/08/2005 - 22:22 | Informe spam
hola, JR !

... como deshabilitar la opcion de Arrastrar y rellenar presionando el boton derecho del mouse [...]



copia/pega las siguientes lineas...
en el modulo de codigo de la/s hoja/s donde necesites deshabilitar esa caracteristica ==Private Sub Worksheet_Activate()
Application.CellDragAndDrop = False
End Sub
Private Sub Worksheet_Deactivate()
Application.CellDragAndDrop = True
End Sub

saludos,
hector.
Respuesta Responder a este mensaje
#2 Héctor Miguel
02/08/2005 - 22:28 | Informe spam
hola [de nueo], JR !

solo una anotacion 'adicional'...
no olvides que 'esa' caracteristica es una de las opciones ->del usuario<-...
a traves del [menu] herramientas / opciones / [ficha] calcular -> permitir arrastrat y colocar
por cual [supongo que] no te podras 'escapar' del resto de codigos 'complicados'
[ya que desde la interfase grafica, el usuario puede volver a habilitarla] :)

saludos,
hector.
Respuesta Responder a este mensaje
#3 JR
03/08/2005 - 17:05 | Informe spam
Gracias me funciona de maravilla.

Que pasa si deshabilito el comando opciones del menu herramientras... se
arregla mi problema.
?
Gracias.
FJRB



"Héctor Miguel" escribió en el mensaje
news:
hola [de nueo], JR !

solo una anotacion 'adicional'...
no olvides que 'esa' caracteristica es una de las opciones ->del


usuario<-...
a traves del [menu] herramientas / opciones / [ficha] calcular -> permitir


arrastrat y colocar
por cual [supongo que] no te podras 'escapar' del resto de codigos


'complicados'
[ya que desde la interfase grafica, el usuario puede volver a habilitarla]


:)

saludos,
hector.


Respuesta Responder a este mensaje
#4 Héctor Miguel
04/08/2005 - 05:01 | Informe spam
hola, JR !

... me funciona... si deshabilito el comando opciones del menu herramientras... se arregla mi problema ?



[aunque supongo que debido 'al paso del tiempo'... ya habras hecho la prueba]... en terminos 'generales'... SI...
cabe la posibilidad de que se 'incruste' 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 = False
Next
=> sin olvidar 'restablecerlo' a True ANTES de salir de 'la aplicacion' :))

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida