Evento BeforeRightClick?

22/04/2010 - 14:11 por Uriel | Informe spam
Buenos dias grupo, necesito programar el evento BeforeRightClick? y
desactivar el menu desplegable del Excel por uno personalizado al realizarlo
con la siguiente instruccion funciona bien pero solo se ve afectado el Libro
donde tengo dicho codigo como puedo hacerlo efectivo para el resto de
Libros???, la instruccion que estoy usando es la siguiente:


Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target
As Range, Cancel As Boolean)

Cancel = True

End Sub


Estoy usando Ms-Office 2007

Muchas Gracias

Uriel Velasquez


__________ Información de ESET Smart Security, versión de la base de firmas de virus 5045 (20100420) __________

ESET Smart Security ha comprobado este mensaje.

http://www.eset.com

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
23/04/2010 - 04:31 | Informe spam
hola, Uriel !

solo expones el codigo que utilizas para inhibir los eventos del clic-secundario en las hojas de un libro (menus desplegables)
para que funcione en "cualquier" libro (abierto en la sesion) puedes deshabilitar algunas barras de herramientas (aun en 2007)
(p.e.) pon estas instrucciones en el evento '_open' de ese libro...

application.commandbars("cell").enabled = false
application.commandbars("row").enabled = false
application.commandbars("column").enabled = false

puedes restablecerlas a true en el evento '_beforeclose' (en caso de cerrar solamente "ese" libro)
o dejar que se auto-restablezcan el reiniciar excel

otra alternativa es usar modulos "de clase" con eventos a nivel de "application"...
revisa los consejos de esta pagina: http://www.cpearson.com/Excel/AppEvent.aspx

saludos,
hector.

__ OP __
... necesito programar el evento BeforeRightClick? y desactivar el menu desplegable del Excel
por uno personalizado al realizarlo con la siguiente instruccion funciona bien
pero solo se ve afectado el Libro donde tengo dicho codigo como puedo hacerlo efectivo para el resto de Libros???
la instruccion que estoy usando es la siguiente:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Estoy usando Ms-Office 2007
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida