Question

VBA中有合并单元格，不能使用Range的属性Locked。。。

VBA，有合并单元格，运行代码时提示“不能设置类Range的Locked属性？
VBA中合并单元格属性怎么写？ 我的代码如下：
Private Sub CheckBox2_Click()
Sheet1.Unprotect
If CheckBox2.Value = True Then
Sheet1.Range("D17").Locked = False
Sheet1.Range("D17").Interior.Color = RGB(255, 255, 255)
Sheet1.Range("D17").Font.Color = RGB(0, 0, 0)

Else
Sheet1.Range("D17").Locked = True
Sheet1.Range("D17").Interior.Color = RGB(77, 77, 77)
Sheet1.Range("D17").Font.Color = RGB(77, 77, 77)

End If

Sheet1.Protect
End Sub

Answer 1

Range("D17").MergeArea.Locked=True
试试