title: Disable Copy/Paste
body: <p>Disabled copy paste in Excel is working with the following code:</p>
  
  <pre><code>Option Explicit
  Sub ToggleCutCopyAndPaste(Allow As Boolean)
      Call EnableMenuItem(21, Allow)
      Call EnableMenuItem(19, Allow)
      Call EnableMenuItem(22, Allow)
      Call EnableMenuItem(755, Allow)
      Application.CellDragAndDrop = Allow
      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)
      Dim cBar As CommandBar
      Dim cBarCtrl As CommandBarControl
      For Each cBar In Application.CommandBars
          If cBar.Name &lt;&gt; "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()
      MsgBox "Sorry!  Cutting, copying and pasting have been disabled in this workbook!"
  End Sub
  </code></pre>
  
  <p>but when I double-click into a cell and then I can do anything there cut, copy and paste.  </p>
  
  <p>How to disable copy paste even double-click into a cell?</p>