How do I disable the right mouse cut and paste facility?

[DexonII]

I need to be able to prevent any user from cutting and pasting data in one of my spreadsheets. I have protected it all, removed cut and paste from the options- edit tab, but you can still cut and paste with the right mouse shortcut key.

How do I stop this from being available?

Paul.

 

[VoG]

The following will disable the menu items globally

Sub Disable_cut_copy_paste()
Application.CutCopyMode = False
Application.OnKey "^{c}", "" 'Copy
Application.OnKey "^{v}", "" 'Paste
Application.OnKey "^{x}", "" 'Cut
On Error Resume Next
ShortcutMenus(xlWorksheetCell).MenuItems("Cut").Delete
ShortcutMenus(xlWorksheetCell).MenuItems("Copy").Delete
ShortcutMenus(xlWorksheetCell).MenuItems("Paste").Delete
ShortcutMenus(xlWorksheetCell).MenuItems("Paste Special...").Delete 'Note space and ...
With CommandBars("Worksheet Menu Bar")
    With .Controls("Edit")
        .Controls("Cut").Enabled = False
        .Controls("Copy").Enabled = False
        .Controls("Paste").Enabled = False
        .Controls("Paste Special...").Enabled = False
    End With
End With
On Error GoTo 0
End Sub

Therefore it is important to re-enable them by running the following before the workbook is closed:

Sub ResetMenu()
With CommandBars("Worksheet Menu Bar")
    With .Controls("Edit")
        .Controls("Cut").Enabled = True
        .Controls("Copy").Enabled = True
        .Controls("Paste").Enabled = True
        .Controls("Paste Special...").Enabled = True
    End With
End With
End Sub

Edit: the easiest way of doing this is with a routine in the Workbook code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call RestoreMenu
End Sub

 

[DexonII]

VoG,

That all now works like a dream! Thank you so much for all your help.

Hope I can return the favour some time.

Paul ray:

 

[mvita]

Deal All,

Excellent solution. Now the next "challange for me" please:

How does one include the menu /Format > Column > Hide (and Unhide) in this code? so that it is no longer possible to use these 2 options? Not globally of course.

Thanks already for the help.