Hi,
I have a code to assist me in disabling cut/copy/and paste for a specific workbook and for specific ranges. It works well within the same workbook.
However, I would like to cut and paste from this workbook to other workbooks because I can't do so with this code.

May I kindly ask how I should alter my code?

---The following code is in ThisWorkBook----------

Private Sub Workbook_Open()
Call ChkSelection(ActiveSheet)
    Application.CellDragAndDrop = False

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ToggleCutCopyAndPaste(True)
    Application.CellDragAndDrop = True

Private Sub Workbook_Activate()
     'Force the current selection to be selected, triggering the appropriate
     'state of the cut, copy & paste commands
    Call ChkSelection(ActiveSheet)
    Application.CellDragAndDrop = True
End Sub


Private Sub Workbook_Deactivate()
     'Re-enable the cut, copy & paste commands
    Call ToggleCutCopyAndPaste(True)
    Application.CellDragAndDrop = True
End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Call ChkSelection(Sh)
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
     'Toggle the cut, copy & paste commands on selected ranges
    Call ChkSelection(Sh)
End Sub
-----The following code is in a module--------

Sub ChkSelection(ByVal Sh As Object)
     'Added Primarily to have one place to set restrictions
     'It also fixes the issue where a cell you don't want to
     'copy/paste from/to is already selected, but you
     'came from a sheet that wasn't protected.
     
    Dim rng As Range
    Set rng = Range(Selection.Address)
     
    Select Case Sh.Name
    Case Is = "XXX Sheet"
            Call ToggleCutCopyAndPaste(False)
    Case Else
        Call ToggleCutCopyAndPaste(True)
    End Select
     
End Sub
Sub ToggleCutCopyAndPaste(Allow As Boolean)
     'Activate/deactivate cut, copy, paste and pastespecial menu items
    Call EnableMenuItem(21, Allow) ' cut
    Call EnableMenuItem(19, True) ' copy
    Call EnableMenuItem(22, Allow) ' paste
    Call EnableMenuItem(755, Allow) ' pastespecial
     
     
     'Drag and Drop Disabled from Original code due to deselecting what has been
     'copied and not allowing paste.  Moved to when workbook opens.
     'Drag and drop will not be allowed for entire workbook.
     
     'Activate/deactivate cut, copy, paste and pastespecial shortcut keys
    With Application
        Select Case Allow
        Case Is = False
            .OnKey "^v", "CutCopyPasteDisabled"
            .OnKey "^x", "CutCopyPasteDisabled"
            .OnKey "+{DEL}", "CutCopyPasteDisabled"
            .OnKey "^{INSERT}", "CutCopyPasteDisabled"
        Case Is = True
            .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 "Cut and Paste is disabled for XXX Sheet." & vbCrLf & _
                "However, you can still copy!", vbCritical, "Cut and Paste Error"
End Sub