Excel中的單元格拖放或自動填充功能可以給我們的操作帶來許多方便,但有時我們并不想拖動單元格而出現(xiàn)意外的錯誤操作。這時可能需要禁用單元格的拖放功能,除了可以通過“Excel選項(xiàng)”來設(shè)置打開或禁用單元格拖放功能外,還可以用VBA代碼來實(shí)現(xiàn),方法如下:
1.按Alt+F11,打開VBA編輯器。
2.如果僅要禁用某個工作表的單元格拖放功能,可以在“工程”窗口中雙擊某個工作表,在代碼窗口中輸入下列代碼:
Private Sub Worksheet_Activate()
Application.CellDragAndDrop = False
End Sub
Private Sub Worksheet_Deactivate()
Application.CellDragAndDrop = True
End Sub
這樣,當(dāng)該工作表被激活時,單元格拖放功能就被禁用了,而選擇其他工作表時又會打開單元格拖放功能。
如果要禁用整個工作簿中的自動拖放或填充功能,在“工程”窗口中雙擊“ThisWorkBook”,在右側(cè)代碼窗口中輸入下列代碼:
Private Sub Workbook_Activate()
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
End Sub
當(dāng)該工作簿被激活時,單元格拖放功能就被禁用了,而選擇其他工作簿時又會打開單元格拖放功能。
當(dāng)單元格拖放功能被禁用后,自動填充功能也被禁用了。當(dāng)鼠標(biāo)指針放到單元格邊框上時,鼠標(biāo)指針形狀不會發(fā)生改變,而且所選擇的單元格右下角也沒有填充柄,因而不能拖動單元格或進(jìn)行自動填充。