Code AutoFilter không thể hoạt động khi khóa công thức

[help_me_6669]

Em có sử dụng Code sau để ẩn dòng không có số liệu:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
With Sheets("Candoi")
.AutoFilterMode = fale
.[A4:A345].AutoFilter 1, "<>"
End With
End If
End Sub

Nhưng khi khóa các ô có chứa công thức thì Code này không thể hoạt động được.
Các anh có thể giúp em để có thể vừa khóa được công thức mà Code AutoFilter vẫn chạy được không?

 

[quanluu]

Em có sử dụng Code sau để ẩn dòng không có số liệu:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
With Sheets("Candoi")
.AutoFilterMode = fale
.[A4:A345].AutoFilter 1, "<>"
End With
End If
End Sub

Nhưng khi khóa các ô có chứa công thức thì Code này không thể hoạt động được.
Các anh có thể giúp em để có thể vừa khóa được công thức mà Code AutoFilter vẫn chạy được không?

Ý bạn là protectsheet đúng ko? bạn để ý option khi protect ấy, bạn tích chọn autofilter là đc