Làm sao để tắt - chạy lệch trong VBA (1 người xem)

[truongminhthi999]

Chào mọi người!

Mình có vấn đề như sao cần mọi người giúp đỡ. Như file đính kèm, tại cột C mình có nhập các giá trị số. Trong VBA mình có viết lệch sau:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Selection.Cells.Count > 2 Then Selection.Offset(1, 1).Range("a1").Select
End Sub

Mục đính là HẠN CHẾ không cho người khác copy dữ liệu với số lượng nhiều hơn 2 ô trong cùng 1 lúc.

Nhưng mình muốn làm thêm 1 cái công tắt, khi nhập giá trị chữ " x " vào trong ô A1 lệch trên không chạy nữa (có thể copy thoãi mái). Khi xóa chữ " x " đó thì lệch chạy trở lại (không cho copy với số lượng nhiều hơn 2 ô cùng 1 lúc).

 

[befaint]

Chào mọi người!
Mình có vấn đề như sao cần mọi người giúp đỡ. Như file đính kèm, tại cột C mình có nhập các giá trị số. Trong VBA mình có viết lệch sau:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Selection.Cells.Count > 2 Then Selection.Offset(1, 1).Range("a1").Select
End Sub
Mục đính là HẠN CHẾ không cho người khác copy dữ liệu với số lượng nhiều hơn 2 ô trong cùng 1 lúc.
Nhưng mình muốn làm thêm 1 cái công tắt, khi nhập giá trị chữ " x " vào trong ô A1 lệch trên không chạy nữa (có thể copy thoãi mái). Khi xóa chữ " x " đó thì lệch chạy trở lại (không cho copy với số lượng nhiều hơn 2 ô cùng 1 lúc).

Bạn thử đoạn sau (Xoá code cũ, chép cái mới vào)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 2 And UCase(Range("A1").Value) <> "X" Then Range("A1").Select
End Sub

p/s: Cái này không có tác dụng gì khi "người ta" không cho phép macro chạy.