禁用复制粘贴 含拖放填充（跨工作簿）

关键词: 复制粘贴，禁用拖放填充

作者: 清风扬 - 2021/9/24 16:11:13 - 重新编辑

财富值: 0

下载    [0次]

帮助：如何在收纳箱中使用本函数？

• 详细说明:

• Private Sub Workbook_Activate()
  Application.CutCopyMode = False
  Application.OnKey "^c", ""
  Application.CellDragAndDrop = False
  End Sub
   
  Private Sub Workbook_Deactivate()
  Application.CellDragAndDrop = True
  Application.OnKey "^c"
  Application.CutCopyMode = False
  End Sub
   
  Private Sub Workbook_WindowActivate(ByVal Wn As Window)
  Application.CutCopyMode = False
  Application.OnKey "^c", ""
  Application.CellDragAndDrop = False
  End Sub
   
  Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
  Application.CellDragAndDrop = True
  Application.OnKey "^c"
  Application.CutCopyMode = False
  End Sub
   
  Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Application.CutCopyMode = False
  End Sub
   
  Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Application.OnKey "^c", ""
  Application.CellDragAndDrop = False
  Application.CutCopyMode = False
  End Sub
   
  Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
  Application.CutCopyMode = False
  End Sub

  
  

  '在thisworkbook里面添加以上代码，拖放填充功能也一并禁用