The code in my previous reply prevents all paste operations in the workbook.
We can modify the code to prevent pasting only to specific cells. If you just
wanted to keep the user from pasting to B10 on Sheet1, you could use:
Private Sub Workbook_Activate()
Application.CutCopyMode = None
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
If Sh.Name <> "Sheet1" Then Exit Sub
If Intersect(Target, Range("B10")) Is Nothing Then Exit Sub
Application.CutCopyMode = None
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.