EXCEL 拖动功能禁用

excel中拖动而造成的公式错误是经常发生的，可以把拖动功能禁用来实现：

方法有二种：

1、工具－－〉选项－－〉编辑－－〉单元格拖放功能，不取消勾选。

缺点：会造成所有excel文件的拖放功能及自动填充功能丧失。

2、通过VBA来实现单个工作表的禁用拖放功能：

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

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

Application.CellDragAndDrop = False

End Sub

Private Sub Worksheet_Deactivate()

Application.CellDragAndDrop = True

End Sub

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

2、通过VBA来实现整个工作簿的禁用拖放功能：

在“工程”窗口中双击“ThisWorkBook”，在右侧代码窗口中输入下列代码：

Private Sub Workbook_WindowActivate(ByVal Wn As Window) Application.CellDragAndDrop = False

End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) Application.CellDragAndDrop = False

End Sub

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

提示：请允许宏运行

在开始→选项→高级→在编辑选项里的“启用填充柄和单元格拖放功能”选项怎样才能设置得到只对一个文档有效，即在同一台电脑里，“启用填充柄和单元格拖放功能”只对其中某一个文档有效，但打开其它文档时是没有效的呢？

通过VBA代码解决这个问题

在工程窗口双击“ThisWorkBook”，右侧输入如下代码：

1.Private Sub Workbook_WindowActivate(ByVal Wn As Window)

2.Application.CellDragAndDrop = False

3.End Sub

4.Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

5.Application.CellDragAndDrop = False

6.End Sub

7.Private Sub Workbook_Deactivate()

8.Application.CellDragAndDrop = True

9.End Sub