Question

excel中用vba实现按条件锁定单元格

Answer 1

也许是因为这里有个错误（倒数第二句锁定表的代码DrawingObjects:=ture,
），代码根本就没运行。
要不要来个简单的，从另外的思路来满足你的需求：当达到条件时，你选取不了要锁定的单元格，变相锁定了这个单元格，不改变对整个表的其他操作，方便多了。只有一句代码。试试吧！
Private
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
If
Target.Column
=
3
And
Target(1).Offset(0,
-1)
=
"按合同总额付款"
Then
Target.Offset(0,
1).Select
End
Sub

Answer 2

EXCEL默认的是所有单元格锁定因此需要在ActiveSheet.Unprotect的下面加上一句
Cells.Locked
=
False