?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
当该工作簿被激活时,单元格拖放功能就被禁用了,而选择其他工作簿时又会打开单元格拖放功能。
当单元格拖放功能被禁用后,自动填充功能也被禁用了。当鼠标指针放到单元格边框上时,鼠标指针形状不会发生改变,而且所选择的单元格右下角也没有填充柄,因而不能拖动单元格或进行自动填充。
……