Deshabilitar Ver código de Etiquetas de Hoja

15/02/2005 - 13:03 por Adriano | Informe spam
Hola a todos, no logro acceder al CommandBar de las etiquetas de hoja. Lo
que quiero es deshabilitar la opción ver código del menú contextual de las
etiquetas.
Tengo un código OnTime que se interrumpe cuando alguien por error pulsa 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, ya que
salta el mensaje que conocerán los que utilizan el OnTime (no se puede
ejecutar en modo interrupción).

Grabé para encontrar la opción una macro agregando esa opción a un menú
integrado Hoja, pero no me sirvió, ya que no puedo acceder a los items 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.

Preguntas similare

Leer las respuestas

#1 KL
15/02/2005 - 13:20 | Informe spam
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 hoja. Lo
que quiero es deshabilitar la opción ver código del menú contextual de las
etiquetas.
Tengo un código OnTime que se interrumpe cuando alguien por error pulsa 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, ya que
salta el mensaje que conocerán los que utilizan el OnTime (no se puede
ejecutar en modo interrupción).

Grabé para encontrar la opción una macro agregando esa opción a un menú
integrado Hoja, pero no me sirvió, ya que no puedo acceder a los items 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.


Respuesta Responder a este mensaje
#2 Adriano
15/02/2005 - 20:36 | Informe spam
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 hojas
era Ply??????????????? Yo estaba meta darle con CommandBars pero con otro
nombre que ahora no recuerdo, que tenía más que ver con Etiqueta de hoja. 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 hoja.


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


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


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, ya


que
> salta el mensaje que conocerán los que utilizan el OnTime (no se puede
> ejecutar en modo interrupción).
>
> Grabé para encontrar la opción una macro agregando esa opción a un menú
> integrado Hoja, pero no me sirvió, ya que no puedo acceder a los items


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.
>
>


Respuesta Responder a este mensaje
#3 KL
15/02/2005 - 20:57 | Informe spam
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 las
palabras "disable pop-up menu sheet" encontraras codigo q usa el nombre ply
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 hojas
era Ply??????????????? Yo estaba meta darle con CommandBars pero con otro
nombre que ahora no recuerdo, que tenía más que ver con Etiqueta de hoja.
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 hoja.


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


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


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, ya


que
> salta el mensaje que conocerán los que utilizan el OnTime (no se puede
> ejecutar en modo interrupción).
>
> Grabé para encontrar la opción una macro agregando esa opción a un menú
> integrado Hoja, pero no me sirvió, ya que no puedo acceder a los items


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.
>
>






Respuesta Responder a este mensaje
#4 Héctor Miguel
15/02/2005 - 23:08 | Informe spam
hola, chicos !

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

KL escribio en el mensaje ...
... lo conocia de hace anos... si lanzas una busqueda en... microsoft.public.excel.programming [...]





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

saludos,
hector.
Respuesta Responder a este mensaje
#5 KL
15/02/2005 - 23:54 | Informe spam
"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
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida