Code xóa chữ trong texbox khi ta thoát Sheet

[khamha]

Nhờ các bạn sửa lại cái Code này cho mình,để khi thoát khỏi Sheet thì nó sẽ xóa nội dung mà mình
đã điền vào,Các bạn xem Code:

Private Sub CommandButton3_Click()
Dim mk
On Error GoTo thoat
mk = Me.TextBox1.Text
Unprotect mk
Rows(ActiveCell.Row).EntireRow.Locked = False
Cells(ActiveCell.Row, "BE") = ""
Protect mk
Exit Sub
thoat:
MsgBox "khamha", , "Khamha"
End Sub

Cảm ơn các bạn.

 

[MinhNguyệt]

Nhờ các bạn sửa lại cái Code này cho mình,để khi thoát khỏi Sheet thì nó sẽ xóa nội dung mà mình
đã điền vào,Các bạn xem Code:

Private Sub CommandButton3_Click()
Dim mk
On Error GoTo thoat
mk = Me.TextBox1.Text
Unprotect mk
Rows(ActiveCell.Row).EntireRow.Locked = False
Cells(ActiveCell.Row, "BE") = ""
Protect mk
Exit Sub
thoat:
MsgBox "khamha", , "Khamha"
End Sub

Cảm ơn các bạn.

Textbox trong sheet hay trong form?

 

[khamha]

Textbox trong sheet hay trong form?

Texbox này nằm trong Sheet"Data"

 

[dhn46]

- Nếu chỉ cần thoát sheet mà chữ mất thì tại sheet data bạn thêm code này

Private Sub Worksheet_Deactivate()
Me.TextBox1 = ""
End Sub

- Nếu muốn thoát workbook mất dòng chữ thì tại Thisworkbook bạn thêm code này

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.TextBox1 = ""
End Sub