Deshabilitar Ver código de Etiquetas de Hoja

"Héctor Miguel" wrote in message
o puedes consultar un listado completo de los menus en excel si visitas:
http://support.microsoft.com/kb/q213552/

KL escribio en el mensaje...
...o escribir algo asi:
'Inicio Codigo-

Hola Adriano,

La verdad es q lo conocia de hace anos de un proyecto q hice q tambien
deshabilitaba los menus contextuales. De todas maneras si lanzas una
busqueda en el grupo de noticias microsoft.public.excel.programming con

palabras "disable pop-up menu sheet" encontraras codigo q usa el nombre

casi enseguida.

Saludos,
KL


"Adriano" wrote in message
news:%
> Hola KL, con esta instrucción entonces deshabilitamos el menú contextual
> entero.
> Application.CommandBars("Ply").Enabled = False
>
> y con esta otra deshabilitamos lo que quería (Ver código)
> Application.CommandBars("Ply").Controls(8).Enabled = False
>
> Ahora KL, cómo hiciste para encontrar que el menú contextual de las

> era Ply??????????????? Yo estaba meta darle con CommandBars pero con

> nombre que ahora no recuerdo, que tenía más que ver con Etiqueta de

> Me
> intriga de dónde lo sacaste porque en la ayuda no encontré nada.
>
> Saludos y muchas gracias.
>
>
>
> "KL" escribió en el mensaje
> news:
>> Hola Adriano,
>>
>> Que tal esto:
>>
>> Application.CommandBars("Ply").Enabled = False
>>
>> Saludos,
>> KL
>>
>>
>> "Adriano" wrote in message
>> news:
>> > Hola a todos, no logro acceder al CommandBar de las etiquetas de

> Lo
>> > que quiero es deshabilitar la opción ver código del menú contextual

> las
>> > etiquetas.
>> > Tengo un código OnTime que se interrumpe cuando alguien por error

> en
>> > Ver código y es lo que quiero evitar. El código VBA al estar el
>> > proyecto
>> > protegido no se ve obviamente, pero sí me interrumpe el scheduller,

> que
>> > salta el mensaje que conocerán los que utilizan el OnTime (no se

>> > ejecutar en modo interrupción).
>> >
>> > Grabé para encontrar la opción una macro agregando esa opción a un

>> > integrado Hoja, pero no me sirvió, ya que no puedo acceder a los

> del
>> > menú contextual de las etiquetas.
>> >
>> > ¿Se puede hacer?
>> > En caso contrario, cómo se deshabilita el menú contextual de las
>> > etiquetas.
>> > Lo único que tengo es el objeto Tab del objeto Hoja, pero solo tiene
> para
>> > poder cambiar el color.
>> >
>> > Saludos.
>> > Adriano.
>> >
>> >
>>
>>
>
>

hola, chicos !

> Adriano escribio en el mensaje ...
> ... como hiciste para encontrar que el menu contextual de las hojas era

>> KL escribio en el mensaje ...
>> ... lo conocia de hace anos... si lanzas una busqueda en...

o puedes consultar un listado completo de los menus en excel si visitas:
http://support.microsoft.com/kb/q213552/

saludos,
hector.

"Héctor Miguel" wrote in message
> o puedes consultar un listado completo de los menus en excel si visitas:
> http://support.microsoft.com/kb/q213552/

...o escribir algo asi:

'Inicio Codigo-
Sub test()
Dim cb As CommandBar
Dim c As CommandBarControl
Dim n As Long
n = 1
For Each cb In Application.CommandBars
If cb.Type = msoBarTypePopup Then
For Each c In cb.Controls
Cells(n, 1) = cb.Name
Cells(n, 2) = c.Caption
Cells(n, 3) = c.ID
n = n + 1
Next c
End If
Next cb
Range("A1").Sort Key1:=Range("A1"), Order1:=xlAscending, _
Key2:=Range("C1"), Order2:=xlAscending
End Sub
'Fin Codigo-

Saludos,
KL