用VBA打开或禁止单元格拖放（自动填充）功能

 

    Excel中的单元格拖放或自动填充功能可以给我们的操作带来许多方便，但有时我们并不想拖动单元格而出现意外的错误操作。这时可能需要禁用单元格的拖放功能，除了可以通过“Excel选项”来设置打开或禁用单元格拖放功能外，还可以用VBA代码来实现，方法如下：

    1.按Alt+F11，打开VBA编辑器。

    2.如果仅要禁用某个工作表的单元格拖放功能，可以在“工程”窗口中双击某个工作表，在代码窗口中输入下列代码：

    Private Sub Worksheet_Activate()
      Application.CellDragAndDrop = False
    End Sub

    Private Sub Worksheet_Deactivate()
      Application.CellDragAndDrop = True
    End Sub

    这样，当该工作表被激活时，单元格拖放功能就被禁用了，而选择其他工作表时又会打开单元格拖放功能。

    如果要禁用整个工作簿中的自动拖放或填充功能，在“工程”窗口中双击“ThisWorkBook”，在右侧代码窗口中输入下列代码：

    Private Sub Workbook_Activate()
      Application.CellDragAndDrop = False
    End Sub

    Private Sub Workbook_Deactivate()
      Application.CellDragAndDrop = True
    End Sub

    当该工作簿被激活时，单元格拖放功能就被禁用了，而选择其他工作簿时又会打开单元格拖放功能。

    当单元格拖放功能被禁用后，自动填充功能也被禁用了。当鼠标指针放到单元格边框上时，鼠标指针形状不会发生改变，而且所选择的单元格右下角也没有填充柄，因而不能拖动单元格或进行自动填充。