Enable copy/paste doesn't copy

[teachman]

Hello,

I have a workbook that I have disabled cut/copy/paste by putting the following in the ThisWorkbook module:

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

Along with disabling a few other functions.
However, there is a series of cells on one worksheet that I want the user to be able to copy and paste in another application. So in Sheet5 I put:

Private Sub Worksheet_Activate()
Application.CutCopyMode = True
Application.OnKey "^c", ""
End Sub

The cell in question is unlocked. The worksheet protection allows the user to select unlocked cells. Most of the worksheet is made up of locked cells.

Now I can select the cell and use control c and it acts like the copy has worked. However, when I paste in another application I get whatever I copied prior to copying the cell.

Could someone please explain what I'm doing wrong and point me in the right direction? Also, is there a way, to have the whole sheet disabled for cut/copy/paste but then enable only a few cells?

Thanks,

George