Nhờ hỗ trợ sửa code khóa vùng Cell có điều kiện

[le_vis]

Nhờ các bạn giúp SỬA hoặc thay đoạn Code theo ý tưởng là: Toàn bộ vùng Cell từ E4 đến P24 bình thường vẫn mở. Khi ta nhập liệu vào vùng nào thì vùng đó tự động khóa lại - (Nếu nhập liệu sai bắt buộc phải mở khóa thì mới nhập lại được) Mọi chi tiết xin được giải trình trong File đính kèm - Xin trân trọng cảm ơn

 

[snow25]

Nhờ các bạn giúp SỬA hoặc thay đoạn Code theo ý tưởng là: Toàn bộ vùng Cell từ E4 đến P24 bình thường vẫn mở. Khi ta nhập liệu vào vùng nào thì vùng đó tự động khóa lại - (Nếu nhập liệu sai bắt buộc phải mở khóa thì mới nhập lại được) Mọi chi tiết xin được giải trình trong File đính kèm - Xin trân trọng cảm ơn

Bạn thử code này xem đúng không nhé.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("E4:P24")) Is Nothing Then
          If Target.Count = 1 Then
            If Target.Locked = True Then Exit Sub
           If Len(Target.Value) > 0 Then
               Unprotect 123
                Target.Locked = True
                Protect 123
           End If
          End If
  End If
End Sub

 

[le_vis]

Bạn thử code này xem đúng không nhé.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("E4:P24")) Is Nothing Then
          If Target.Count = 1 Then
            If Target.Locked = True Then Exit Sub
           If Len(Target.Value) > 0 Then
               Unprotect 123
                Target.Locked = True
                Protect 123
           End If
          End If
  End If
End Sub

Xin Thầy kiểm tra lại giúp - Code không thực hiện được

 

[snow25]

Xin Thầy kiểm tra lại giúp - Code không thực hiện được

Bạn thay cái sự kiện này nhé.Trước khi chạy code mở hết locked đi nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
       If Not Intersect(Target, Range("E4:P24")) Is Nothing Then
          If Target.Count = 1 Then
            If Target.Locked = True Then Exit Sub
           If Len(Target.Value) > 0 Then
               Unprotect 123
                Target.Locked = True
                Protect 123
           End If
          End If
  End If
End Sub

 

[le_vis]

Bạn thay cái sự kiện này nhé.Trước khi chạy code mở hết locked đi nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
       If Not Intersect(Target, Range("E4:P24")) Is Nothing Then
          If Target.Count = 1 Then
            If Target.Locked = True Then Exit Sub
           If Len(Target.Value) > 0 Then
               Unprotect 123
                Target.Locked = True
                Protect 123
           End If
          End If
  End If
End Sub

- Chuẩn không cần chỉnh - Cảm ơn Thầy nhiều