Re-enabling Copy, Cut, Paste, Drag/Drop Cells in Excel

[Ndifreke]

Hi Team,

I recent use the code below into the ThisWorkbook section of the VBA to disable cut, copy, paste and cell drag.

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

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

Unfortunately while I thought this would only apply to the Workbook I was working on, it has affected all Excel Workbooks on my PC.

I can no longer copy using CTRL + C, cut, paste nor drag & drop cells.

Please how do I re-enable all these functions on my Excel?

Thanks in advance

 

[Joe4]

Did you try removing ALL of that code from your workbook, then close Excel entirely and log back in to it and see if that resets everything?

 

[nemmi69]

I am guessing that a macro as below should restore it.

Sub RestoreC
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

It may need to go in here
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

 

[Ndifreke]

Did you try removing ALL of that code from your workbook, then close Excel entirely and log back in to it and see if that resets everything?

This did for me. I cleared everything from the ThisWorkbook, closed Excel and re-oponed it to be pleasantly surprised that the issue was solved.

Many thanks

I am guessing that a macro as below should restore it.

Sub RestoreC
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

It may need to go in here
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Hi nemmi69,

Thank you so much for the feedback. I am now able to carry-out all cut, copy, paste, drag & drop functions on my Excel.

Many thanks!!!

 

[nemmi69]

Glad to help

 

[Peter_SSs]

This did for me.

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.