Code không cho phép sửa Textbox trên Form

[luytrelang]

Chào cả nhà GPE! Em có ví dụ này nhờ các anh xem dùm cho em code không cho phép sửa thông tin ở Textbox? Câu hỏi cụ thể ở file đính kèm!

 

[befaint]

Private Sub UserForm_Activate()
Dim txb As Control
For Each txb In Khaibao.Controls
    If TypeName(txb) = "TextBox" Then
        txb.Enabled = False
    End If
Next
End Sub

 

[ndu96081631]

Chào cả nhà GPE! Em có ví dụ này nhờ các anh xem dùm cho em code không cho phép sửa thông tin ở Textbox? Câu hỏi cụ thể ở file đính kèm!

Nếu đã cố tình không cho sửa thì thôi ta thiết kế luôn mấy cái textbox ấy thành Label đi, thế là yên chuyện mà khỏi cần phải viết code gì cả

 

[be_09]

Chào cả nhà GPE! Em có ví dụ này nhờ các anh xem dùm cho em code không cho phép sửa thông tin ở Textbox? Câu hỏi cụ thể ở file đính kèm!

Nếu không cần sửa thông tin thì chọn Textbox đó, trong cửa sổ Properties vào bên phải mục Enabled chọn False (đâu cần code chi cho phức tạp ra).

 

[quoc nhat]

Nếu không cần sửa thông tin thì chọn Textbox đó, trong cửa sổ Properties vào bên phải mục Enabled chọn False (đâu cần code chi cho phức tạp ra).

Em thì hay chỉnh trong cửa sổ Properties của textbox: Looked là True

 

[luytrelang]

@ndu96081631: Em cố tình hỏi vậy vì muốn làm thêm 1 công việc khác nữa.
@be09: Em cũng biết cách xử lý thuộc tính đó ạ. Nhưng muốn tìm hiểu thêm code ạ

 

[be_09]

@ndu96081631: Em cố tình hỏi vậy vì muốn làm thêm 1 công việc khác nữa.
@be09: Em cũng biết cách xử lý thuộc tính đó ạ. Nhưng muốn tìm hiểu thêm code ạ

Muốn không cho sửa thì tôi thấy code bài 2 đã đáp ứng yêu cầu của bạn, nhưng sử dụng nó cho sự kiện.

Private Sub UserForm_Initialize()

Và thay dòng:

txb.Enabled = False

thành dòng:

txb.Locked = True ' cho phép chọn TextBox nhưng không sửa được