Macro to Disable Cut/Paste, Allow Copy/Paste

[wolverine97]

I am looking for a macro to disable the cut and paste function for all sheets in a workbook, but allow copying and pasting (including copying and pasting from another workbook). Thanks in advance for any help.

 

[villy]

Just give this a Try:
copy and paste this into thisworkbook section of your workbook.

Private Sub Workbook_Deactivate()
If ActiveWorkbook.Name = "Book1" Then
    For Each ws In ThisWorkbook.Worksheets
        Application.CutCopyMode = False
    Next
End If
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveWorkbook.Name = "Book1" Then
    For Each ws In ThisWorkbook.Worksheets
        Application.CutCopyMode = False
    Next
End If
Application.CutCopyMode = False
End Sub

*Change "Book1" to the name of your workbook that you want to disable the cut and copy/paste function

 

[wolverine97]

Thanks for the quick reply Villy. The more I look at this though, the more complicated it's getting.
I actually need to disable cut, but allow paste; disable auto-fill; and only allow paste/special/values (or more specifically, maintain destination formatting).
This definitely gets me started though. Thank you!!

 

[villy]

Private Sub Workbook_Deactivate()
If ActiveWorkbook.Name = "Book1" Then
    For Each ws In ThisWorkbook.Worksheets
        Application.CutCopyMode = False
    Next
End If
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveWorkbook.Name = "Book1" Then
    For Each ws In ThisWorkbook.Worksheets
        Application.CutCopyMode = False
    Next
End If
Application.CutCopyMode = False
End Sub

remove red