Khóa vùng (1 người xem)

[hồminhlý]

Xin chào các thành viên, tôi có 1 vấn đề chưa giải quyết được mong nhận được sự giúp đỡ. Xem file đính kèm. Rất cảm ơn.

 

[nhapmon]

bạn thử đoạn code này.

bạn chọn toàn bô sheet, vào format cell chọn protection, gỡ bỏ dấu click ở 2 ô "Clock" và "Hidden"
sau đó lập lạithao tác này cho 2 vùng G17:T17 và V17:Al17 nhưng click chọn vào 2 ô này
sau đó vào cửa sổ vba chép đ0ạn code này vào chổ sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E17")) Is Nothing Then
If Range("E17").Value = "N" Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
ActiveSheet.Unprotect
End If
end if

End Sub

 

[hồminhlý]

bạn thử đoạn code này.
bạn chọn toàn bô sheet, vào format cell chọn protection, gỡ bỏ dấu click ở 2 ô "Clock" và "Hidden"
sau đó lập lạithao tác này cho 2 vùng G17:T17 và V17:Al17 nhưng click chọn vào 2 ô này
sau đó vào cửa sổ vba chép đ0ạn code này vào chổ sheet1

Trước hết cảm ơn bạn gần đúng rồi bạn, nhưng do 2 vùng G17:T17 và V17:Al17 là để nhập dữ liệu, nếu mình Locked thì nhập dữ liệu không được. Ngược lại nếu nhập N thì Locked 2 vùng đó đi. Nghĩa là Locked có điều kiện Khi thỏa mảng điều kiện là N tại ô E17. Mong giúp đỡ, cảm ơn

 

[nhapmon]

Trước hết cảm ơn bạn gần đúng rồi bạn, nhưng do 2 vùng G17:T17 và V17:Al17 là để nhập dữ liệu, nếu mình Locked thì nhập dữ liệu không được. Ngược lại nếu nhập N thì Locked 2 vùng đó đi. Nghĩa là Locked có điều kiện Khi thỏa mảng điều kiện là N tại ô E17. Mong giúp đỡ, cảm ơn

Tức là khi nhập chữ N vào là không cho nhập liệu nữa đúng không, khi bỏ chữ N đi thì có thể nhập liệu, mình làm như vậy mà

bạn thử file đính kèm coi đúng không?

 

[hồminhlý]

Tức là khi nhập chữ N vào là không cho nhập liệu nữa đúng không, khi bỏ chữ N đi thì có thể nhập liệu, mình làm như vậy mà

bạn thử file đính kèm coi đúng không?

Chưa đúng bạn ơi. Vì file lúc mở sheet lên là tôi đã khóa các ô công thức trước rồi chỉ chừa lại 2 vùng đó thôi. Hỏi có cách nào khi nhập N tại E17 thì tự động check Protection -> Locked 2 vùng đó không?

 

[nhapmon]

hơi rờm rà một chút, thử lại coi, không biết có đúng ý bạn không

 

[hồminhlý]

hơi rờm rà một chút, thử lại coi, không biết có đúng ý bạn không

Đúng rồi bạn cảm ơn bạn nhiều. Cho hỏi thêm trong 1 sheet sử dụng 2 Worksheet_Change1 và Worksheet_Change2 được không? Sao tôi chưa áp dụng vào file của tôi được. Cảm ơn.

 

[nhapmon]

No, nhưng bạn viết bao nhiêu code vào đó cũng được, sắp xếp vào một cái thôi.