Question

不能设置类range的locked属性-------

我的excel中设置了一段代码，达到的效果是 保存前可以输入，保存后不可修改。但是，应用于合并单元格的时候出错，将其中一句代码改为：“Tar1.MergeArea.Locked = True”后，虽然不会再报错，但是对我的合并单元格起不到保护作用了。。有什么办法可以解决吗？合并单元格不能拆分。。。
我的代码如下：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Unprotect Password:="123456"
Dim Tar1 As Range
For Each Tar1 In Range("C3:T2000")
If Tar1 <> "" Then
Tar1.Locked = True
Else
Tar1.Locked = False
End If
Next Tar1
ActiveSheet.Protect Password:="123456"
End Sub
实现目标：在输入内容，保存后单元格内容不可以修改，但是对于合并单元格就会出错，我将Tar1.Locked = True改为Tar1.MergeArea.Locked = True后，对合并单元格内容就起不到保护作用了，求教大师们该怎么解决这个问题，我的单元格不能拆分，必须合并使用！

Answer 1

Selection.Locked属性是可读写的，如果运行时不能设置属性，可能是工作表处理保护状态，需要先用Unprotect(Password)方法解除工作表保护才行。