locked textbox property set to true at worksheet

Question

Hello, I have textboxes (activeX controls) on my worksheet that I've locked to true from the property tab, but it doesn't seem to be working at all. The only way to stop the values in those textboxes from being manually changed was to set the enable property to false, but I can't make the font black. Does anyone have any recommendations?

This is the code I have used so far:

Private Sub locktextboxes()

Dim NamaBarangTextBox As Object
Set NamaBarangTextBox = Sheet1.NamaBarang

With NamaBarangTextBox
    .Locked = True
End With

End Sub

Answer 1

I'm unable to clarify what NamaBarangTextBox means. Locked (the property must exist otherwise a runtime error will occur), however in order to set the box to read-only, you must access the locked-(sub)property of the object-property:

Try

With NamaBarangTextBox.object
    .Locked = True
End With