很多时候，你都不想别人修改或者删除你的工作表中含有公式的单元格，因为这样会打乱你的工作表结构。

 

下面的代码锁定当前工作表中含有公式的所有单元格，你不能删除或者修改这些单元格，除非你解除工作表保护。当然，你可以修改或者删除其他单元格（不能删除公式单元格所在的行）。

Sub LockCellsWithFormulas()

    With ActiveSheet

        .Unprotect

        .Cells.Locked = False

       .Cells.SpecialCells(xlCellTypeFormulas).Locked = True

        .ProtectAllowDeletingRows:=True

    End With

End Sub

 

运行上面的代码后，当你要删除工作表中含有公式的单元格或该单元格所在行时，

Excel

会弹出下图

1

所示的提示信息。

图

1

图

2

• Excel实用工具13：每日事项清单——与日历结合
• 独家讲解：私募股权基金的最实用基础知识
• 星巴克支付宝小程序发布新功能
• 把这几个小程序推荐给伟大的父亲们吧
• 新中式四合院别墅古朴优雅大气实用，极佳的自建房方案选择
• 连续 4 年争冠，勇士和骑士的恩怨纠葛都在这几个小程序里
• P8的程序员在阿里被P10大佬面试，评价：果然有水平！
• 6个实用的Excel技巧，99%都会用得上
• 5天100w+销售额，咪蒙试水小程序电商！
• 有赠送面积! 还要分清是否合法、实不实用