Giới hạn số lần nhập trong Cell (1 người xem)

[minhkhoimai]

Chào các bạn.
Mình có 1 file Excel muốn share cho người khác nhập phụ mình. nhưng mình có cột ngày tháng muốn cho người đó nhập 1 lần thôi nhập lần 2 sẽ có thông báo hay tô màu gì đó cho mình biết.
rất mong sự giúp đỡ của các bạn.

 

[SA_DQ]

Bạn tham khảo macro sau:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [C2].Resize(9999)) Is Nothing Then
    If Cells(Target.Row, 250).Value = "" Then
        Cells(Target.Row, 250).Value = Target.Value
    Else
        Target.Value = Cells(Target.Row, 250).Value
    End If
 End If
End Sub

 

[minhkhoimai]

Thank HYen17 ! bạn có thể chỉ mình cách làm được không mình dùng excel 2010. Nếu được gửi mình 1 cái file luôn.
Chân thành cám ơn bạn.

 

[siwtom]

Thank HYen17 ! bạn có thể chỉ mình cách làm được không mình dùng excel 2010. Nếu được gửi mình 1 cái file luôn.
Chân thành cám ơn bạn.

1. Chuyện gõ nhầm là chuyện thường sẩy ra. Bản thân tôi nhiều khi gõ nhanh thì muốn gõ 1 nhưng lại trúng 2. Bạn không cho người ta sửa sai? Nếu tôi gõ nhầm thành 2013-05-32 thì bạn có cho tôi sửa lại không hay bạn thích lấy 2013-05-32? Vì code không cho sửa lại và luôn phải là 2013-05-32. Bạn cho "người khác nhập phụ mình" nhưng bạn muốn nhận 2013-05-32 để rồi bạn lại phải tự "cầy"?

Ngoài ra bạn nên nói rõ lý do tại sao bạn không cho người ta sửa được không? Vì bạn muốn người ta nhập dữ liệu hộ thì cứ để người ta nhập 100 lần miễn sao nhập đúng là được?

2. Code ở bài #2 chưa chuẩn. Phân tích code là ra ngay

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [C2].Resize(9999)) Is Nothing Then
    If Cells(Target.Row, 250).Value = "" Then
        [COLOR=#ff0000]Cells(Target.Row, 250).Value = Target.Value[/COLOR]
    Else
        [COLOR=#0000ff]Target.Value = Cells(Target.Row, 250).Value[/COLOR]
    End If
 End If
End Sub

1. Nhập lần đầu vào vd. C7 = 2013-05-32. Do IP7 = "" nên thực hiện dòng đỏ đỏ, tức có IP7 = 2013-05-32.

2. "người khác" thấy sai và nhập lại C7 thành 2013-05-31. Do ô IP7 = 2013-05-32 <> "" nên thực hiện dòng xanh xanh. Tức C7 lại bị đổi thành 2013-05-32, tức lại sẩy ra sự kiện Worksheet_Change, giá trị C7 lại bị đổi (Target.Value = ...), lại sẩy ra sự kiện Worksheet_Change, và lại thực hiện dòng xanh xanh. Cứ như thế cho tới ngày tận thế.

 

[minhkhoimai]

Thank bạn đã quan tâm mình đính kèm file nhờ các bạn giúp mình.
Yêu cầu:
cho người khác nhập thông tin vào file. cột "NGAY NHAN HS" sẽ khống chế chỉ cho nhập dạng ngày tháng và nhập 1 lần. 02 cột cuối không cho nhập vì đã có công thức.

Chân thành cám ơn các bạn .