Excel VBA实例教程 #010：禁用单元格拖放功能

在工作表中可以拖放单元格右下角的小十字对单元格内容进行复制等操作，如果不希望用户进行此操作可以禁用单元格拖放功能，如下面的代码所示。 1. Private Sub Worksheet_SelectionChange(ByVal Target As Range) 2. If Not Application.Intersect(Target, Range(\"A1:A15\")) Is

Nothing Then

3. Application.CellDragAndDrop = False 4. Else

5. Application.CellDragAndDrop = True 6. End If 7. End Sub

复制代码

代码解析：

工作表的SelectionChange事件过程，在指定的单元格区域禁用单元格的拖放功能。

CellDragAndDrop 属性设置单元格的拖放功能，如果允许使用单元格拖放功能，则该值为True。

为了不影响其他工作表，应在工作表的Deactivate事件中恢复单元格的拖放功能，如下面的代码所示。

1. Private Sub Worksheet_Deactivate()

2. Application.CellDragAndDrop = True 3. End Sub

复制代码

代码解析：

工作表的Deactivate事件过程，恢复单元格的拖放功能。

工作表的Deactivate事件当工作表从活动状态转为非活动状态时产生，语法如下：

Private Sub object_Deactivate() 参数object代表Worksheet对象。

当选择工作表“Sheet1”的A1：A15单元格时将禁用单元格的拖放功能，如图 1所示。

图 1 禁用单元格的拖放功能