TextBox hiện ở chế độ ReadOnly

[diemvuongvathuongde]

Chào các bác. Em có 1 TextBox, em chỉ muôn hiện nội dung trong đó mà không muốn cho sửa chữa gì cả. Nếu chọn Enabled=False thì nội dung bị mờ đi. Xin hỏi các bác có cách nào mà nội dung vẫn hiện rõ bình thường không.

 

[cadafi]

Nếu Textbox của bạn tạo nằm trên sheet thì chỉ có cách Enable=False. Nếu Textbox của bạn nằm trên User Form thì làm được, bạn tìm đến thuộc tính Locked của textbox và chọn True.

 

[diemvuongvathuongde]

Cảm ơn bạn, nếu đặt Locked=True thì nội dung vẫn bị mờ, ý tôi muốn nội dung không bị mờ và không sửa chữa được.

 

[Po_Pikachu]

Vậy thử code này xem.

Private Sub TextBox1_Change() TextBox1 = "co dinh" End Sub   Private Sub UserForm_Activate() 'Code này dùng để nạp dòng chữ vào trong Form TextBox1 = "co dinh" End Sub

 

[cadafi]

Cảm ơn bạn, nếu đặt Locked=True thì nội dung vẫn bị mờ, ý tôi muốn nội dung không bị mờ và không sửa chữa được.

Bạn vẫn chưa nói rõ là textbox trong sheet hay trong User Form. Nếu trong User Form thì dùng Locked=true, chữ của textbox đâu có bị mờ và người dùng thì vẫn không chỉnh sửa nội dung được. Bạn xem file đính kèm.

 

[cadafi]

Vậy thử code này xem.

Private Sub TextBox1_Change()
TextBox1 = "co dinh"
End Sub
 
Private Sub UserForm_Activate() 'Code này dùng để nạp dòng chữ vào trong Form
TextBox1 = "co dinh"
End Sub

Không phải vậy đâu Po_Pikachu, cách này không ổn đâu.