Private Sub Workbook_Open()
Application.OnKey "^{c}", "" 'anula copiar
Application.OnKey "^{x}", "" 'anula cortar"
Application.OnKey "^{v}", "" 'anula pegar
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Video
https://youtu.be/tCTD_dxgJz4
