LIVE GST Audit Course by CA Sachin Jain. Register Now!!

EXCEL - Disabling COPY function

Anil (1638 Points)

23 March 2008

Can anyone please let me know how to disable 'Copy' function in EXCEL?

Reply
Follow
Share

7 Replies

Shiv om Jindal (ACA) (263 Points)
Replied 23 March 2008

Use Protect Sheet or Protect Workbook from Tools menu

Anil (1638 Points)
Replied 23 March 2008

With protect sheet one can ONLY stop someone from ‘EDITING’. But one can COPY.

Please let me know how to disable ‘COPY’ function.

ca rahul (professional) (58 Points)
Replied 02 May 2008

you can convert it in to PDF

Sujit Talukder (service) (719 Points)
Replied 05 May 2008

by noraml excel function copy function cannot be disabled. Only by macro this can be done.

Mohit Singla (CA) (35 Points)
Replied 06 May 2008

Not possible without macros. However if u dont want to copy cells through dragging then go to Tools---options--edit---untick "allow drag and drop.

Kamaraj Mani. N (Chartered Accountant - Product Manager) (553 Points)
Replied 23 January 2009

Originally posted by :Anil
"	Can anyone please let me know how to disable 'Copy' function in EXCEL?	"

Try this code:

Go to Tools>Macro>Visual Basic Editor
Double Click 'This Workbook' from Project-VBAProjects
Copy and paste the following codes

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_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Right click menu deactivated." & vbCrLf & _
"Cannot copy or ''drag & drop''.", 16, "For this workbook:"
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