Excel VBA 锁定特定单元格

用此法好, 不用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, Rows

然后设定Selection.Locked=True

Cells.Locked = False

Columns("A:A").Select

Selection.Locked = True

Selection.FormulaHidden = False

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _

, AllowInsertingRows:=True, AllowFiltering:=True