Disable copy and enable cut

[shanmuganandan]

I have a list of running numbers. every time i need to cut few numbers and paste at another workbook.
the reason for cut is to prevent copy same running number twice or more.

so, i need to disable copy while enabling cut and paste to another workbook.

Thanks
Shan

 

[nemmi69]

It can be done but the issue will be that if the sheet is protected it will have to remain unprotected till the paste is made. Though the cut/copy paste can be disabled with out protection.

 

[nemmi69]

Do you want the option for just disabling Ctrl_C? Would this be for 1 sheet?

 

[shanmuganandan]

i just wants the workbook disabled from copying. ctrl+C or button click.

Is there any VBA code for that?

 

[nemmi69]

OK, there are a few bits

In ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
    .OnKey "^x"
    .OnKey "^c"
    .OnKey "^v"
End With


End Sub

In the sheet you want this active add

Private Sub Worksheet_Activate()
With Application
    '.OnKey "^x", "Ctrl_X_Event"
    .OnKey "^c", "Ctrl_C_Event"
    .OnKey "^v", "Ctrl_V_Event"
End With


End Sub


Private Sub Worksheet_Deactivate()
With Application
    .OnKey "^x"
    .OnKey "^c"
    .OnKey "^v"
End With


End Sub

In a Module add

Sub Ctrl_X_Event()


End Sub


Sub Ctrl_C_Event()


End Sub


Sub Ctrl_V_Event()


End Sub

NOTE the option for Ctrl-X is not enabled.

 

[shanmuganandan]

Hi Nemmi,

i copy and paste the codes at their respective location but i still can copy and paste data

Thanks
Shan

 

[Yongle]

Why do you need to disable anything?

Microsoft already thought about this - already available..
cut with {CTRL} X
paste with {CTRL} V

 

[nemmi69]

Hi Nemmi,

i copy and paste the codes at their respective location but i still can copy and paste data

Thanks
Shan

Are you able to copy/paste in the sheet with the code or is this else where?
Also are you using Ctrl_C and Ctrl_V or menu commands?

 

[nemmi69]

Try this version for only 1 sheet not allowing copy/paste

In ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
    .OnKey "^x"
    .OnKey "^c"
    .OnKey "^v"
End With


End Sub


Private Sub Workbook_Activate()
With Application
    '.OnKey "^x", "Ctrl_X_Event"
    .OnKey "^c", "Ctrl_C_Event"
    .OnKey "^v", "Ctrl_V_Event"
End With


End Sub


Private Sub Workbook_Deactivate()
With Application
    .OnKey "^x"
    .OnKey "^c"
    .OnKey "^v"
End With


End Sub

In the sheet to be disabled

Option Explicit


Private Sub Worksheet_Activate()
With Application
    '.OnKey "^x", "Ctrl_X_Event"
    .OnKey "^c", "Ctrl_C_Event"
    .OnKey "^v", "Ctrl_V_Event"
End With


End Sub


Private Sub Worksheet_Deactivate()
With Application
    .OnKey "^x"
    .OnKey "^c"
    .OnKey "^v"
End With


End Sub

In any other sheet in that workbook

Option Explicit


Private Sub Worksheet_Activate()
With Application
    .OnKey "^x"
    .OnKey "^c"
    .OnKey "^v"
End With


End Sub

In module

Option Explicit


Sub Ctrl_X_Event()


End Sub


Sub Ctrl_C_Event()
MsgBox "Sorry, COPY is not allowed."
End Sub


Sub Ctrl_V_Event()
MsgBox "Sorry, PASTE is not allowed."
End Sub