Khóa Bảng Tình Mà Vẫn Lọc Được Dữ Liệu

[khamha]

Các Bạn Cho Hỏi Là Có Cách Hoặc Code Nào Khóa Bảng Tình Mà Vẫn Lọc Được Dữ Liệu, Cảm Ơn Các Bạn

 

[thuanduc08]

Chào bạn.
Có gì khó đâu, bạn chỉ cần không khoá các ô tháng và năm là được thôi mà.

 

[chibi]

Hãy thử thể thực hiện:
- Bỏ Locked đối với [D1] và [E1]
- Trong sự kiện Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
 ActiveSheet.Unprotect Password:=123
...
ActiveSheet.Protect Password:=123
End Sub

 

[khamha]

Hãy thử thể thực hiện:
- Bỏ Locked đối với [D1] và [E1]
- Trong sự kiện Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
 ActiveSheet.Unprotect Password:=123
...
ActiveSheet.Protect Password:=123
End Sub

Bạn Có Thể Hướng Dẫn Củ Thể Được Không,Mình Làm Như Bạn Hướng Dẫn Rồi Mà Không Được ( Hay Là Bạn Làm Thử Rồi Tải Lên Cho Học Với ) Thank

 

[boyxin]

Các Bạn Cho Hỏi Là Có Cách Hoặc Code Nào Khóa Bảng Tình Mà Vẫn Lọc Được Dữ Liệu, Cảm Ơn Các Bạn

Bạn Có Thể Hướng Dẫn Củ Thể Được Không,Mình Làm Như Bạn Hướng Dẫn Rồi Mà Không Được ( Hay Là Bạn Làm Thử Rồi Tải Lên Cho Học Với ) Thank

Bác chibi đã nói rất rõ tại bài #3 rồi, bạn không chịu làm theo hoặc có làm nhưng không theo đúng cách

Xem file đính kèm nhé (pwd = gpe)

Option Explicit
Const pwd = "gpe"
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2:E2")) Is Nothing Then
    Unprotect (pwd)
        Sheet1.[a2].CurrentRegion.AdvancedFilter 2, [D1:E2], [A3:AO3], 0
    Protect (pwd)
End If
End Sub

 

[xuanvuto]

Bạn chỉ cần khi khóa hãy đánh dấu chọn mục useautofilter trong bảng Protect Sheet là được chứ có gì khó đâu mà phải dùng tới code