如何在受保护的工作表中使用VBA锁定多个单元格

Question

我需要在不同的受保护的工作表中锁定多个单元格，但在通过宏输入数据后会锁定相同的工作簿。其作品以精为先的数据范围，但它总是打破在第二range.I尝试这样做：

ActiveWorkbook.Worksheets("Summary").Range("C3").Value = Range("B18").Value + Range("C18").Value 
ActiveWorkbook.Worksheets("Summary").Unprotect Password:="password" 
ActiveWorkbook.Worksheets("Summary").Protect Password:="password", UserInterFaceOnly:=True 
ActiveWorkbook.Worksheets("Summary").Range("A11:B15", "C3").Locked = True 

我也试过这个

ActiveWorkbook.Worksheets("Summary").Unprotect Password:="password" 
ActiveWorkbook.Worksheets("Summary").Protect Password:="password", UserInterFaceOnly:=True 
ActiveWorkbook.Worksheets("Summary").Range("A11:B15").Locked = True 
ActiveWorkbook.Worksheets("Summary").Range("C3").Value = Range("B18").Value + Range("C18").Value 
ActiveWorkbook.Worksheets("Summary").Range("C3").Locked = True 

每次他们停在距离C3。对于第一个脚本，我删除了“C3”，并且它很好;第二，我删除了整条线，它的工作原理。但我真的需要从编辑中锁定C3。有关如何做的建议？ 错误消息总是运行时错误'1004'：无法设置Range类的锁定属性。

Answer 1

我建议检查这个question了。

使用.Lock打开或关闭锁定标志，一旦表格被保护，您将无法编辑任何锁定标志打开的单元格。

你需要做的... ...

ActiveWorkbook.Worksheets("Summary").Range("C3").Value = Range("B18").Value + Range("C18").Value 
ActiveWorkbook.Worksheets("Summary").Range("A11:B15", "C3").Locked = True 
ActiveWorkbook.Worksheets("Summary").Protect Password:="password", UserInterFaceOnly:=True 

编辑1：

ActiveWorkbook.Worksheets("Summary").Unprotect Password:="password" 
ActiveWorkbook.Worksheets("Summary").Range("C3").Value = Range("B18").Value + Range("C18").Value 
ActiveWorkbook.Worksheets("Summary").Range("A11:B15", "C3").Locked = True 
ActiveWorkbook.Worksheets("Summary").Protect Password:="password", UserInterFaceOnly:=True