admin管理员组

文章数量:1531479

2024年6月18日发(作者：)

excel中拖动而造成的公式错误是经常发生的，可以把拖动功能

禁用来实现：

方法有二种：

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

勾选。

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

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

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

（2）.如果仅要禁用某个工作表的单元格拖放功能，可以在“工

程”窗口中双击某个工作表，在代码窗口中输入下列代码：

Private Sub Worksheet_Activate()

agAndDrop = False

End Sub

Private Sub Worksheet_Deactivate()

agAndDrop = True

End Sub

（3）这样，当该工作表被激活时，单元格拖放功能就被禁用了，

而选择其他工作表时又会打开单元格拖放功能。

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

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

入下列代码：

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

agAndDrop = False

End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

agAndDrop = False

End Sub

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

工作簿时又会打开单元格拖放功能。

提示：请允许宏运行

在开始→选项→高级→在编辑选项里的“启用填充柄和单元格拖放功能”选项怎样才能

设置得到只对一个文档有效，即在同一台电脑里，“启用填充柄和单元格拖放功能”只对

其中某一个文档有效，但打开其它文档时是没有效的呢？

通过VBA代码解决这个问题

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

1. Private Sub Workbook_WindowActivate(ByVal Wn As Window)

2. agAndDrop = False

3. End Sub

4. Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

5. agAndDrop = False

6. End Sub

7. Private Sub Workbook_Deactivate()

8. agAndDrop = True

9. End Sub

本文标签： 功能拖放禁用代码选项

版权声明：本文标题：EXCEL拖动功能禁用 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/xitong/1718679084a711131.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。