Excel VBA 锁定特定单元格

最新推荐文章于 2025-02-23 20:24:51 发布

rooklyn21

最新推荐文章于 2025-02-23 20:24:51 发布

阅读量1.4w

点赞数 2

本文链接：https://blog.csdn.net/rooklyn21/article/details/22298657

版权

在Excel VBA中，为了防止编辑特定单元格，可以使用代码将工作表解锁，设置所有单元格为可编辑，然后遍历指定范围（如A1到iNum+100）并将这些单元格锁定。在修改后，解除所有单元格的锁定，选择要再次锁定的列（例如A列），并设定其Locked属性为True。最后，保护工作表允许插入行和过滤，但不允许其他修改。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

用此法好, 不用select方法(会导致丢光标位置)

With ThisWorkbook.Worksheets("检查信息")
ActiveSheet.Unprotect

        AutoFilterMode = False '自动筛选
        Rows(1).AutoFilter

        Cells.Locked = False '序列号锁定
        Set rg = .Range("A1:A" & iNum + 100)
        For Each cell In rg
            cell.Locked = True
        Next
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowInsertingRows:=True, AllowFiltering:=True

在修改锁定的单元格前,要先把保护去掉.

With ThisWorkbook.Worksheets("检查信息")
ActiveSheet.Unprotect

改完单元格内容以后,

先设定Cells.Locked=False

再用select选中要锁定的范围,可以是Range, Columns,