EXCEL - Disabling COPY function

Excel 2576 views 7 replies

 

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

Replies (7)

Use Protect Sheet or Protect Workbook from Tools menu

 

With protect sheet one can ONLY  stop someone from ‘EDITING’. But one can COPY.
 
Please let me know how to disable ‘COPY’ function.

you can convert it in to PDF

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

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.

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


 

Try this code:

  1. Go to Tools>Macro>Visual Basic Editor
  2. Double Click 'This Workbook' from Project-VBAProjects
  3. 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

Hope it will satisfy your requirement.

no macro is needed in this case , follow this simple process:

 

1. Go to protect sheet

2. Uncheck all the options

3. Give password

 

thats it...


CCI Pro

Leave a Reply

Your are not logged in . Please login to post replies

Click here to Login / Register