Deny Cut/Paste but Allow Copy/Paste on Workbook

[RandyD123]

Is there a way to deny a cut/paste to users while allowing Copy/Paste, and clear contents for the Workbook?

 

[mumps]

Place this macro in the code module for ThisWorkbook:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Application.CutCopyMode = xlCut Then
        MsgBox "Please DO NOT Cut and Paste. Use Copy and Paste, then delete the source if necessary."
        Application.CutCopyMode = False
    End If
End Sub

Modify the message to suit your needs.

 

[RandyD123]

Thank You, Works Perfectly!

 

[mumps]

You are very welcome.