Modificar menu-boton-derecho-mouse

A mí no me gusta ni poco ni mucho toquetear las barras de menú, por lo que mi sugerencia es que crees una barra personalizada con las opciones que quieras que aparezcan al hacer click derecho en ésa hoja y utilices el evento SheetBeforeRightClick.
Suponiendo que la hoja se llamara Hoja1 y la barra personalizada "Personalizada 1", el código podría ser:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Name <> "Hoja1" Then Exit Sub
Cancel = True
Application.CommandBars("Personalizada 1").Visible = True
End Sub

El código iría en el módulo del libro.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Rene Moreno" escribió en el mensaje news:

Hola grupo

Necesito que al presionar el botón derecho del mouse en una celda solo
muestre un menú personalizado, sin ninguna de las unciones que trae excel.
Esta "acción" solo será para una hoja. Ya le he dado varias vueltas a la
ayuda y aun no encuentro nada que me pueda orientar, sobra decir que aun no
domino bien la cosa de modificar y agregar menús en Excel 2000, en Excel
(antes del 97) era mas simple (bueno, según digo yo)

Cualquier recomendación/ayuda/auxilio será bien recibida. Gracias.

Saludos,
Rene Moreno
"La pero pregunta es la que ustedes nunca hicieron"
Joe Montana


____________________________________________________
Para responder elimine el texto NOSPAM de la dirección de envío

Gracias por la sugerencia :))

Rene Moreno
"La peor pregunta es la que ustedes nunca hicieron"
.Joe Montana.

____________________________________________________
Para responder elimine el texto NOSPAM de la dirección de envío
"Fernando Arroyo" escribió en el mensaje
news:%
A mí no me gusta ni poco ni mucho toquetear las barras de menú, por lo que
mi sugerencia es que crees una barra personalizada con las opciones que
quieras que aparezcan al hacer click derecho en ésa hoja y utilices el
evento SheetBeforeRightClick.
Suponiendo que la hoja se llamara Hoja1 y la barra personalizada
"Personalizada 1", el código podría ser:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target
As Range, Cancel As Boolean)
If ActiveSheet.Name <> "Hoja1" Then Exit Sub
Cancel = True
Application.CommandBars("Personalizada 1").Visible = True
End Sub

El código iría en el módulo del libro.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Rene Moreno" escribió en el mensaje
news:

Hola grupo

Necesito que al presionar el botón derecho del mouse en una celda solo
muestre un menú personalizado, sin ninguna de las unciones que trae excel.
Esta "acción" solo será para una hoja. Ya le he dado varias vueltas a la
ayuda y aun no encuentro nada que me pueda orientar, sobra decir que aun

no

domino bien la cosa de modificar y agregar menús en Excel 2000, en Excel
(antes del 97) era mas simple (bueno, según digo yo)

Cualquier recomendación/ayuda/auxilio será bien recibida. Gracias.

Saludos,
Rene Moreno
"La pero pregunta es la que ustedes nunca hicieron"
Joe Montana


____________________________________________________
Para responder elimine el texto NOSPAM de la dirección de envío