标题: 用VBA打开或禁止单元格拖放（自动填充）功能 [打印本页] 作者: lsq720310 时间: 2015-4-10 10:18 标题: 用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
当该工作簿被激活时，单元格拖放功能就被禁用了，而选择其他工作簿时又会打开单元格拖放功能。
当单元格拖放功能被禁用后，自动填充功能也被禁用了。当鼠标指针放到单元格边框上时，鼠标指针形状不会发生改变，而且所选择的单元格右下角也没有填充柄，因而不能拖动单元格或进行自动填充。