Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cell_ As Range
' de phong nguoi dung thay doi hang loat o trong 1 not nhac, vd. truoc do A1:C1 co gia tri, nhung nguoi dung chon A1:C1 va nhan phim DELETE
Set rng = Intersect(Me.Range("A1:C1"), Target)
If rng Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each cell_ In rng ' xet tung o cua vung rng - co the la 1, 2 hoac ca 3 o A1, B1, C1
' neu la o trong, vd. do xoa gia tri co truoc do, thi nhap "Xin nhap gia tri" vao o
If Trim(cell_.Value) = "" Then cell_.Value = "Xin nh" & ChrW(7853) & "p gi" & ChrW(225) & " tr" & ChrW(7883)
Next cell_
Application.EnableEvents = True
End Sub