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]

ShortcutMenus(xlWorksheetCell).MenuItems("Cut").Delete

and similarly with Paste.

 

[DexonII]

VoG II,

Thanks, will this remove it permantly from all further files that are opened? or does it just do it for the spreadsheet used?

Approx 45 different people will use these files (200 files) through one "master" switchboard. I would still like to be able to use the short cut menu on other spreadsheets.

Also where do I paste the statement? In the work book declerations?

Paul

 

[VoG]

No it isn't 'permanent'.

I would put it in an Autpen macro.

 

[DexonII]

OK I will give it a go. Can the same be done for the shortcut keys ctrl+c ctrl+v ctrl+x etc?

 

[VoG]

Try

Application.OnKey "^{c}", ""        'Copy
Application.OnKey "^{v}", ""        'Paste
Application.OnKey "^{x}", ""        'Cut

 

[DexonII]

Again placed in the same Open workbook sub?

 

[VoG]

Yes, I would create a sub called Autpen in an ordinary module and put all the disabling code in it.

 

[DexonII]

Hi VoG,

I'm backagain! I have tried the code to disable the short cut keys and that works just fine!

However when I try the code for the shortcut menu Cut, Copy, Paste and Paste Special I get an error with the macro.

It says "Run time error "1004" Application defined or object defined error"

How do I get round this to make it work??

Paul.

 

[DexonII]

Any body out there???