Disable right click, Ctrl+V and Paste option in Ribbon

[Helix242]

Hi,

I wonder if anyone can help. I'm no expert at Excel and I have been cobbling together different parts of VBA to disable the following;

1. Right Click
2. Ctrl+V
3. Paste option in the Ribbon

It doesn't appear to be working (I am currently doing this in Microsoft Excel on a MacBook, but the code is for a PC). Can anyone help with the code, or suggest an easier way for items NOT to be pasted in to the worksheets contained in a workbook?

I want to allow data to be copied from this workbook but NOT pasted in the workbook. The code I have so far is;

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^v”, ""
Application.CellDragAndDrop = False
End Sub


Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^v”
Application.CutCopyMode = False
End Sub


Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^v”, ""
Application.CellDragAndDrop = False
End Sub


Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^v”
Application.CutCopyMode = False
End Sub


Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Right click menu deactivated." & vbCrLf & _
"Cannot copy or ''drag & drop''.", 16, "For this workbook:"
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^v”, ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub


Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

Thank you in advance!