Deshabilitar boton derecho

No creo que necesites seleccionar nada. Por ejemplo:

ActiveSheet.Shapes("Autoforma 11").OnAction = "macro1"

debería funcionar.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"dargento" escribió en el mensaj
news:
>
> Pues, es que yo protego la hoja con todo, y luego desde visua
basic,
> intento asignar una macro con el metodo onaction, y me dice que n
es
> posible, ya que primero hago:
> Activesheet.shapes("Autoforma 11").select
> selection.onaction = "macro1"
> Y no me deja, me dice que la propiedad usada de select se usa
> invalidamente.
> ¿Que hago?
>
>
> KL Wrote:
> > Hola dargento,
> >
> > Creo que estas intentando atacar el problema por un lado erroneo
Yo
> > que tu,
> > intentaria solucionar lo de "...ya que sino no me deja asigna
macros
> > en
> > ejecucion..." Si das mas detalle del problema que encuentras a
correr
> > tu
> > codigo en una hoja cuyos objetos estan protegidos, intentaremo
darte
> > una
> > solucion. De momento decirte que con los objetos protegidos n
tengo
> > problemas en asignar codigo OnAction a las autoformas. Ni siquier
es
> > necesario recurrir a:
> >
> > ActiveSheet.Protect UserInterfaceOnly:=True
> >
> > Saludos,
> > KL
> >
> > "dargento" wrote in message
> > news:
> > >
> > > Hola!
> > > Tengo en una hoja excel unas autoformas, a las cuales las asigno
> > unas
> > > macros en ejecucion, segun quiero qe¡ue hagan unas cosas u
> > otras.Pero
> > > mi problema es que no quiero que cualquier usuario al dar a
boton
> > > derecho sobre ellas me las pueda borrar,copiar,etc..
> > > Tengo la hoja protegida,pero los objetos no, ya que sino no m
deja
> > > asignar macros en ejecucion.
> > > Necesitaba no permitir al usuario utilizar el boton derecho del
> > raton
> > > cuando este en esas autoformas,o en toda la hoja.En visual basic
> > > claro.
> > > Muchas gracias
> > >
> > >
> > > dargento
> > >
>

> > > dargento's Profile
http://www.msusenet.com/member.php?userid47
> > > View this thread: http://www.msusenet.com/t-1870586151
> > >
>
>
> dargento


> dargento's Profile: http://www.msusenet.com/member.php?userid47
> View this thread: http://www.msusenet.com/t-1870586151