Restrict copy

[needhelp2]

Hi All,

I need to restrict copy data of my sheets .Can anyone tell me how can i stop any user to copy data from my sheet.
I am using excel 2007.And i protect my sheet and lock and hide formals as well it that but only now i need to "Restrict data from copy by user"


Thanks in advence

 

[doofusboy]

Not sure whether I got it here or on some other board, but in my little code snippets library I have some code that disables/enables, cut, copy, paste and drag-n-drop. Feel free to modify to suit your needs.

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

 

[needhelp2]

thanks dear doofusboy. I like it.bt its nt working on my file.buddy can u tel me some other ?

 

[doofusboy]

Not sure what you mean about it not working in your file as it has worked well for me over the years to accomplish just what you asked. I'm sorry, but this is the only suggestion I have. Again, since it's worked well for me I never saw any reason to try an alternative.

 

[daverunt]

It has to be pasted in the 'ThisWorkbook' of the VBA project. Not a module.

 

[needhelp2]

thanx dear both. "doofusboy" & "daverunt".
I was puting it module. Nw its working. Thanx dude. N dont b angry bro. Infect i was placing it on wrong way coz i was unawared about that.

 

[Smitty]

Just be aware that this can easily be defeated by disabling Macros. If you're worried about distribution purposes, then I'd look into saving as a PDF.