Algún Maestro que me pueda ayudar

Como bloquear la tecla menú contextual del teclado en Visual Basic VB, encontré como hacerlo con el ratón, pero necesito bloquear también el botón del teclado.

De antemano muchas gracias  por el apoyo que me puedan brindar

Saludos

Con esto desactivo el botón derecho del ratón

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Necesito hacer lo mismo con el botón del teclado "menú contextual", que es lo mismo como si diéramos clic con el botón derecho  del maus (ratón).

Por favor algún master me puede ayudar, llevo rato buscando y no logro como sacarlo.

Saludos cordiales

Trate en desactivar el botón "Menú Contextual" pero no supe como?

With Application
.OnKey "^c", "": .OnKey "^x", "": .OnKey "^v", "": .OnKey "^{Insert}", "": .OnKey "^{Del}", ""
End With

Por favor su ayuda maestros!

Saludos a todos

 

En Vba selecciona el Objeto ThisWorkbook

En las Opciones cambia de General a Workbook y Open

Application.OnKey "^{c}", "" 'deshabilita copiar

Application.OnKey "^{v}", "" 'deshabilita pegar

y así sucesivamente  

Para el Menú contextual seleccionas dentro del código de Thisworkbook

SheetBeforeRigthClick

Cancel = True

 

Como sugerencia extra protege con contraseña tu proyecto de VBA y Listo!!!!

 

código teclado ^ alt+94

código teclado { alt+123

código teclado } alt+125

Quedo a tus Ordenes!!! 

Saludos!!!

Hola Maestro y Amigo

La instruccion que me diste deshabilita el botón derecho del maus, pero como le hago para el botón del  teclado que habré el menú contextual? Que es igual que el maus (botón derecho).

De antemano gracias por la atención recibida! 

Saludos cordiales 

para deshabilitar el clic-secundario por mouse o por teclado, prueba:

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

permanecerá deshabilitado hasta que lo rehabilites o re-inicies excel

saludos,

hector.

pega este codigo en el modulo thisworkbook de VBA, con esto anulas el menu contextual tanto en el mouse como en el teclado

esta macro desactiva el menu contextual solamente en el archivo donde coloques esta macro.

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    Application.CommandBars("Worksheet Menu Bar").Enabled = False
    Application.CommandBars("Cell").Enabled = False
    Application.CommandBars("Sheet").Enabled = False
    Application.CommandBars("Ply").Enabled = False
    Application.CommandBars("Row").Enabled = False
    Application.CommandBars("Column").Enabled = False
End Sub

la siguiente macro anula la orden para desactivar el menu contextual cuando cambies de libro
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    Application.CommandBars("Worksheet Menu Bar").Enabled = True
    Application.CommandBars("Cell").Enabled = True
    Application.CommandBars("Sheet").Enabled = True
    Application.CommandBars("Ply").Enabled = True
    Application.CommandBars("Row").Enabled = True
    Application.CommandBars("Column").Enabled = True
End Sub

Maestros son grandes! ... son grandes Maestros!

Póstrate y arrepiéntete ante los Maestros!

Gracias por el apoyo ya quedo solucionado!

=D

 

 

No se como  cerrar el tema Uuuupppsss