Code khoá sheet khi lọc dữ liệu

[khoailuoc]

Chào anh/chị GPE!
Em có 1 ví dụ nhỏ em đã viết code để khoá dữ liệu khi lọc rồi. Nhưng không hiểu sao khi chọn mã thì nó lọc được nhưng báo lỗi khôg khoá được. Không biết code em viết sai chỗ nào?
Anh/chị vui lòng chỉ dùm (hoàn thiện) em nhé!
Cám ơn anh/chị nhiều!

 

[boyxin]

Chào anh/chị GPE!
Em có 1 ví dụ nhỏ em đã viết code để khoá dữ liệu khi lọc rồi. Nhưng không hiểu sao khi chọn mã thì nó lọc được nhưng báo lỗi khôg khoá được. Không biết code em viết sai chỗ nào?
Anh/chị vui lòng chỉ dùm (hoàn thiện) em nhé!
Cám ơn anh/chị nhiều!

Bạn sửa lại code thành như sau xem sao

Private Sub worksheet_change(ByVal Target As Range)
Unprotect ("ngh")
If Target.Address = "$C$1" Then
[A4].CurrentRegion.AutoFilter 1, IIf(Target = "", "<>", Target)
End If
Protect ("ngh")
End Sub

 

[Hai Lúa Miền Tây]

Chào anh/chị GPE!
Em có 1 ví dụ nhỏ em đã viết code để khoá dữ liệu khi lọc rồi. Nhưng không hiểu sao khi chọn mã thì nó lọc được nhưng báo lỗi khôg khoá được. Không biết code em viết sai chỗ nào?
Anh/chị vui lòng chỉ dùm (hoàn thiện) em nhé!
Cám ơn anh/chị nhiều!

Bạn sửa lại như sau nhé:

Private Sub worksheet_change(ByVal Target As Range)
[COLOR=Blue][B]Sheet1.Unprotect Password:="ngh"[/B][/COLOR]
If Target.Address = "$C$1" Then
[A4].CurrentRegion.AutoFilter 1, IIf(Target = "", "<>", Target)
[B][COLOR=Blue]Sheet1.Protect Password:="ngh"[/COLOR][/B]

End If

End Sub