Como evitar que copien tus archivos de excel a otro excel

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