在工作表中锁定的文本框属性设置为 true

Question

您好，我的工作表中有文本框（activeX 控件），我已从属性选项卡将其锁定为 true，但似乎它根本不起作用，防止手动更改这些文本框中的值的唯一方法是将启用设置为 false 但我无法将字体颜色更改为黑色。 有人有建议吗？

之前谢谢。

这是迄今为止使用的代码

Private Sub locktextboxes()

Dim NamaBarangTextBox As Object
Set NamaBarangTextBox = Sheet1.NamaBarang

With NamaBarangTextBox
    .Locked = True
End With

End Sub

Answer 1

我无法解释NamaBarangTextBox.Locked的含义（显然该属性存在，否则会出现运行时错误），但要将框设置为只读，您需要访问Object属性的锁定（子）属性：

尝试

With NamaBarangTextBox.object
    .Locked = True
End With