Disabled Textbox Font Colour
Solution 1:
You could use the .locked property, like so
Private Sub UserForm_Click()
custom_lock Me.TextBox1
End Sub
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
custom_unlock Me.TextBox1
End Sub
Function custom_lock(tb As MSForms.TextBox)
tb.ForeColor = vbRed
tb.Locked = True
End Function
Function custom_unlock(tb As MSForms.TextBox)
tb.ForeColor = vbBlack
tb.Locked = False
End Function