阿Q吧 > 如何通过VBA实现对EXCEL公式的保护，同时非公式格可编辑也可插入删除行

如何通过VBA实现对EXCEL公式的保护，同时非公式格可编辑也可插入删除行

2025-04-04 14:40:31

推荐回答（3个）

回答1：

直接在这个代码中修改一下就可以了，在
With Sht.Cells.SpecialCells(xlCellTypeFormulas, 23) '选中包含公式的单元格
.Locked = True '添加锁定
.FormulaHidden = True '添加隐藏
End With
这段代码中间任意位置增加你所需要的操作代码。比如删除行，还有设置某区域单元格的保护属性.protected 为false就可以实现该区域单元格可编辑。

回答2：

简单调整即可
Sht.Protect ("123456") '保护工作表,并设置密码
这一句修改为

Sht.Protect Password:="123456", AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True '保护工作表,并设置密码

可以插入和删除，行以及列

没疑问，别忘记采纳答案

回答3：

Sht.Protect ("123456") '保护工作表,并设置密码
改为：
Sht.Protect Password:="123456" DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowDeletingRows:=True