Code to stop cut copy paste and other keys

Hi All,

I have been using this below code to stop cut copy paste and other functions but for some reason I am not sure if someone changed something in the code but I am having troubles.

I dont want users to be able to use the below functions

CUT, COPY, PASTE, INSERT, F2 (FUNCTION KEY) ,DELETE OR SPACE BAR KEY.

The problem i am facing is that any workbook thats opened also starts being effected by it. I am unable to use any functions in any other file open can someone please take a look at this code much appreciated

Please Login or Register  to view this content.

Hi there,

Try inserting the following code in the "ThisWorkbook" VBA CodeModule (i.e. NOT in a standard VBA CodeModule):

Please Login or Register  to view this content.

Hope this helps - please let me know how you get on.

Regards,

Greg M

Please Login or Register  to view this content.

HI the above code is already in this work book, should i be replacing it?

Hi again,

Oops, my bad! I should have included the code for the Workbook_Open and Workbook_BeforeClose events also

It appears that your code SHOULD work correctly - are you sure that the code mentioned is entered in the "ThisWorkbook" VBA CodeModule? Itwon't work if it's inserted in a standard CodeModule.

If the problem persists, can you post even a partial copy of your workbook here? We don't really need the contents of the worksheets, just the VBA.

Regards,

Greg M

Hi Greg,

I am still able to use the delete option in the work book which should be disabled and F2 key as well. And when i have this book open I am unable to use cut copy paste in another open excel

here is a copy of the sheet.

Hi again,

See if the attached version of your workbook does what you need. I've highlighted the changes/additions I made to your code:

Please Login or Register  to view this content.

Switching to another workbook re-enables all of the features disabled by the above code, and returning to this workbook disables them once again.


If you need to really "tie the User's hands" I think you'll need to check the various other keyboard shortcuts which exist, and disable them also. For example, using Ctrl with the plus/minus keys allows the User to insert/delete a row.


Hope this helps - as before, please let me know how you get on.

Regards,

Greg M

HI Greg,

Now I am getting

Please Login or Register  to view this content.

Sub or function not defined

Call EnableMenuItem(21, Allow) ' cut

HI I was able to solve the above,

However I tried including this

Please Login or Register  to view this content.

To stop backspace but it still works how to I stop that?

Hi again,

Try using:

Please Login or Register  to view this content.

Hope this helps - as before, please let me know how you get on.

Regards,

Greg M

Originally Posted by Greg M

Hi again,

Try using:

Please Login or Register  to view this content.

Hope this helps - as before, please let me know how you get on.

Regards,

Greg M

Thank you this works sorry i was away for a long time