Note: The other languages of the website are Google-translated. Back to English

如何防止在Excel中删除特定单元格内容?

本文讨论的是防止在Excel中删除特定的单元格内容。 您可以使用本文中的方法来实现。

通过保护工作表防止特定的单元格内容被删除
防止使用VBA代码删除特定单元格内容


通过保护工作表防止特定的单元格内容被删除

默认情况下,工作表中的所有单元格均被锁定。 如果要防止删除特定单元格内容,并在保护后使其他单元格可编辑,请执行以下操作。

1。 点击 按钮在工作表的左上角以选择整个工作表。 然后按 按Ctrl + 1 键打开 单元格格式 对话框。

2.在弹出 单元格格式 对话框中,取消选中 锁定 选项下 保护 选项卡,然后单击 OK 按钮。 看截图:

3.选择您不想删除内容的单元格,按 按Ctrl +1键打开 单元格格式 再次出现对话框,请检查 锁定 选项下 保护 选项卡,然后单击 OK 按钮。

4.现在点击 评论 > 保护工作表,然后在两个 保护工作表 确认密码 对话框。

现在,工作表已受保护。 并且指定的单元格内容将不再被删除。


防止使用VBA代码删除特定单元格内容

除了上述两种方法,您还可以运行VBA代码以防止特定的单元格内容在工作表中被删除。 请执行以下操作。

1.打开包含您不想删除的单元格内容的工作表,右键单击“工作表”选项卡,然后单击“确定”。 查看代码 从右键单击菜单中。

2.复制下面的VBA代码并将其粘贴到 Microsoft Visual Basic应用程序 窗口。

VBA代码:防止在Excel中删除特定单元格内容

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:E7")) Is Nothing Then Exit Sub
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    If Not IsDate(Target(1)) Then
        Application.Undo
        MsgBox " You can't delete cell contents from this range " _
        , vbCritical, "Kutools for Excel"
    End If
ExitPoint:
    Application.EnableEvents = True
End Sub

备注:在代码中,A1:E17是您将防止删除的单元格内容的范围。 您可以根据需要更改范围。

从现在开始,当您尝试从范围A1:E17删除单元格内容时,您将获得一个 Kutools for Excel 对话框如下图所示,请点击 OK 按钮。


相关文章:


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (17)
5中的5评分 · 1评级
该评论由网站上的主持人最小化
正是我要找的,谢谢帮助!
该评论由网站上的主持人最小化
不要担心总是在这里帮助:)
该评论由网站上的主持人最小化
您好,

我刚刚尝试了 VBA 脚本,虽然它在大多数情况下都运行良好。 但是,当您从可编辑单元格切换到不可编辑的列/单元格时,它不起作用。 问题出现在它抛出错误消息 - 按照命令 - 但它不会保留在原始可编辑单元格中输入的数据,该单元格是从该单元格中选择的。

您是否会对脚本进行修改,以便在您选择不可编辑时接受可编辑单元格中的数据?

干杯
该评论由网站上的主持人最小化
美好的一天,
我按照您在您的案例中提到的方法进行了尝试,但没有抛出错误。 您能提供您案例的屏幕截图还是告诉我您的 Office 版本?
感谢您的评论。
该评论由网站上的主持人最小化
如果您不想查看工作表或编写 VBA 代码,那么我会使用一种简单的技术来防止任何覆盖,除非他们使用“DELETE”键(不允许退格,但删除很难停止)。 我所做的是使用以下设置添加数据验证:

1) 允许 --> 列表

2)取消选中“忽略空白”和“单元格下拉菜单”

3) 在源中输入两个双引号(即“”)

4) 在错误警报选项卡中,选中“输入无效数据后显示错误更改”,样式选择“停止”,然后输入错误消息和描述(例如,不要覆盖)
该评论由网站上的主持人最小化
嗨,
感谢您的分享。
该评论由网站上的主持人最小化
VBA 代码 - 很棒的提示,谢谢

是否有 VBA 代码可以防止特定单元格内容在 Excel 中被修改和删除?
通常的保护表对我不起作用,因为我失去了对数据进行排序的能力?

提前致谢 - 尼尔
该评论由网站上的主持人最小化
“通过保护工作表来防止特定单元格内容被删除”我按照您的指南做了,仍然可以删除单元格信息,即保护不起作用。 任何解决方案。
该评论由网站上的主持人最小化
嗨,阿桑,
您是否应用了 VBA 方法?
您需要将 VBA 添加到工作表代码窗口。 假设要保护的单元格内容在 Sheet9 中,请右键单击工作表选项卡并从上下文菜单中选择查看代码,然后将代码直接复制到代码窗口中,如下图所示。
查看附件 (1 / 5)
该评论由网站上的主持人最小化
您好,此代码运行良好,但删除行/列将绕过它。 有什么解决方法吗? 干杯,大卫。
该评论由网站上的主持人最小化
嗨大卫,
您使用的是哪个 Excel 版本? 代码我试过了,应用代码后指定范围内的整行整列都不能删除。
该评论由网站上的主持人最小化
感谢您提供宝贵的信息。
关于以下VBA:
私人子Worksheet_Change(按目标的ByVal目标)
如果 Intersect(Target, Range("A1:E7")) 没有,则退出 Sub
出错时 GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) 那么
应用程序.撤消
MsgBox "你不能删除这个范围内的单元格内容" _
, vbCritical, "Kutools for Excel"
结束如果
出口点:
Application.EnableEvents = True
END SUB

以上将允许在某个指定范围内执行。 它不允许添加新行。 有没有办法可以添加新行但保持相同的保护。
感谢致敬
该评论由网站上的主持人最小化
嗨,乌萨马·阿布·法拉杰,
在尝试了各种方法后,我似乎无法让它发挥作用。 添加新行后,该区域将立即被锁定,新插入的单元格无法编辑。
该评论由网站上的主持人最小化
是否可以在工作簿级别做类似的事情?

私人子Worksheet_Change(按目标的ByVal目标)
如果 Intersect(Target, Range("A1:M7000")) 什么都不是,则退出 Sub
出错时 GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) 那么
应用程序.撤消
MsgBox "你不能删除这个范围内的单元格内容" _
, vbCritical, "Kutools for Excel"
结束如果
出口点:
Application.EnableEvents = True
END SUB
该评论由网站上的主持人最小化
嗨格鲁,
您的意思是防止在当前工作簿的所有工作表中删除范围“A1:M7000”吗?
该评论由网站上的主持人最小化
不,我的意思是不允许删除(不保护 wks 或 wkb)。

上述工作在 Wks 级别上很好。

如果有什么东西可以让它在 wkb 级别上工作,那就更好了(我有很多工作表)

G
该评论由网站上的主持人最小化
这很棒。 我想知道这是否是一个选项并且确实是。 感谢您提供非常简单的说明。

安德烈斯·S。
5中的5评分
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护