Chỉ đánh được dữ liệu vào 01 trong 02 ô

[hmp_1982]

Mình có ô A1 và ô B1. Mình muốn khi vừa đánh chữ x vào ô A1 thì ô B1 lập tức sẽ bị khoá (không thể đánh dữ liệu được) và ngược lại nếu đánh chữ x vào ô B1 thì ô A1 lập tức bị khoá không đánh dữ liệu được. (Chỉ có thể đánh chữ x vào một trong 02 ô, hoặc A1 hoặc B1). Và khi xoá chữ x trong ô này thì ô kia sẽ đánh được dữ liệu.
Cảm ơn các bạn.

 

[darkmoon]

Cái ni là em thu macro, còn kém lắm
Mà sao em chạy nó dump hoài vậy kà.

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Unprotect
    On Error Resume Next
    ActiveSheet.Protection.AllowEditRanges(1).Delete
    Target.Value = UCase(Target.Value)
    If Target.Value = "X" Then
        i = Target.Row
            If Range("A" & i).Value = "X" Then
                ActiveSheet.Protection.AllowEditRanges.Add Title:="Range1", Range:=Range("A" & i)
                ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            Else
                ActiveSheet.Protection.AllowEditRanges.Add Title:="Range1", Range:=Range("B" & i)
                ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            End If
     End If
End Sub

 

[hmp_1982]

Có cách nào đơn giản hơn không các anh, chị.