VBA Code to Disable Cut, Copy and Paste Functions in Excel

Option Explicit

Sub ToggleCutCopyAndPaste(Allow As Boolean)

'Activate/deactivate cut, copy, paste and pastespecial menu items

    Call EnableMenuItem(21, Allow)    ' cut

    Call EnableMenuItem(19, Allow)    ' copy

    Call EnableMenuItem(22, Allow)    ' paste

    Call EnableMenuItem(755, Allow)   ' pastespecial

'Activate/deactivate drag and drop ability

    Application.CellDragAndDrop = Allow

'Activate/deactivate cut, copy, paste and pastespecial shortcut keys

    With Application

        Select Case Allow

            Case Is = False

                .OnKey "^c", "CutCopyPasteDisabled"

                .OnKey "^v", "CutCopyPasteDisabled"

                .OnKey "^x", "CutCopyPasteDisabled"

                .OnKey "+{DEL}", "CutCopyPasteDisabled"

                .OnKey "^{INSERT}", "CutCopyPasteDisabled"

            Case Is = True

                .OnKey "^c"

                .OnKey "^v"

                .OnKey "^x"

                .OnKey "+{DEL}"

                .OnKey "^{INSERT}"

            End Select

    End With

End Sub

Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean)

     'Activate/Deactivate specific menu item

    Dim cBar As CommandBar

    Dim cBarCtrl As CommandBarControl

    For Each cBar In Application.CommandBars

        If cBar.Name <> "Clipboard" Then

            Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True)

            If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled

        End If

    Next

End Sub

 

Sub CutCopyPasteDisabled()

'Inform user that the functions have been disabled

    MsgBox "Sorry!  Cutting, copying and pasting have been disabled in this workbook!"

End Sub