VBA-禁用单元格拖拽功能

2024年2月2日 158次阅读 来源: 交小通

禁用单元格拖拽功能

在工作表中可以拖放单元格右下角的小十字对单元格内容进行复制等操作，如果不希望用户进行此操作可以禁用单元格拖放功能。代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1:A15")) Is Nothing Then
        Application.CellDragAndDrop = False '若禁止工作表内拖拽，只需该代码
    Else
        Application.CellDragAndDrop = True
    End If
End Sub 
'当离开该工作表时，恢复拖拽功能
Private Sub Worksheet_Deactivate()
    Application.CellDragAndDrop = True '回复单元格拖拽功能
End Sub
    原文作者：交小通
    原文地址: https://blog.csdn.net/m0_46291589/article/details/104466765
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞