Protec nhưng không lọc được!

[tungmsb]

Em có 1 file đã protec nhưng không lọc được. Các anh chị có cách nào giúp em protec nhưng vẫn lọc được không (file đính kèm).

 

[Ếch Xanh]

Đôi điều góp ý cùng bạn:

1) Khi gửi File lên, nếu có ProtectSheet, thì bạn cũng nên cho PassWord để người ta làm cho bạn (mặc dù tôi biết nó ở trong VBA, thậm chí tôi cũng có thể bẻ khóa)

2) Cái msgbox của bạn thật phản cảm, nó khiến người khác không muốn giúp bạn!

3) Giải pháp: Trước khi protect, trong hộp PROTECT SHEET, bạn nên check vào 2 mục: Short và Use AutoFilter.

Điều này cũng dễ thực hiện khi khóa sheet: Bạn quay lại macro hành động check này, sau đó gán vào Sub OkeBap của bạn. (Bạn sưu tầm File của OkeBap à?)

 

[Luc Van]

Em có 1 file đã protec nhưng không lọc được. Các anh chị có cách nào giúp em protec nhưng vẫn lọc được không (file đính kèm).

Có thể chủ topic ko hề cố ý với cái thông báo này...

 

[Ếch Xanh]

Có thể chủ topic ko hề cố ý với cái thông báo này...

Thủ tục chỉ cần như vầy:

Private Sub Bebe2_Click()
On Error Resume Next
    If Sheet2.Bebe2.Caption = "UnProtect" Then
        If UCase(InputBox("Input Pass : ", "Bebebe!")) = "123456" Then
            Sheet2.Bebe2.Caption = "Protect"
            Sheet2.Bebe2.ForeColor = &HFF0000
            Sheet2.Unprotect "123456"
        Else
            MsgBox "Ban chua co quyen su dung trang nay!", vbOKOnly, "Bebebe!!"
            Exit Sub
        End If
    Else
        Sheet2.Bebe2.Caption = "UnProtect"
        Sheet2.Bebe2.ForeColor = &HFF&
        'Sheet2.Protect "123456", False, True, True ''<============ Thay the doan nay bang doan duoi:
        Sheet2.Protect "123456", AllowFiltering:=True
    End If
End Sub

Thay thế bằng câu này:

MsgBox "Ban chua co quyen su dung trang nay!"

Hay hơn là dùng cái câu phản cảm này không nhỉ?

MsgBox "Di uong Ca Fe di, day khong phai cho cua tre con"

 

[Ếch Xanh]

Xin vui lòng xóa bài này!

 

[ndu96081631]

Thay thế bằng câu này:

MsgBox "Ban chua co quyen su dung trang nay!"

Hay hơn là dùng cái câu phản cảm này không nhỉ?

MsgBox "Di uong Ca Fe di, day khong phai cho cua tre con"

Nếu tôi đoán không lầm thì code này là của Mr OkeBap (không phải của tác giả viết)
Những cựu thành viên GPE này, ai cũng biết Mr OkeBap là 1 anh chàng rất thích hài hước mà

 

[tungmsb]

Vâng. Em cũng không để ý đến cái đó. Đoạn code này em lấy của anh Mr OkeBap. Rất xin lỗi mọi người.

 

[tungnguyen_kt]

Vâng. Em cũng không để ý đến cái đó. Đoạn code này em lấy của anh Mr OkeBap. Rất xin lỗi mọi người.

Em nghĩ không sao cả, chẳng có gì phải xin lỗi, nếu tôi viết được code mà có người dùng tôi cũng vui lắm đó chứ, tiếc là tôi cũng là chuyên gia "ăn cắp" code trên GPE về dùng. hihi....
Yên tâm đi bạn GPE là nơi chia sẻ mà.

Nhìn thấy Bebebe là biết ngay ai rùi.

PS: Mà sao thấy code của Thầy NDU hỏng có ẹc ẹc nhỉ??

 

[Ếch Xanh]

Cũng là dạng ProtectSheet, nhưng Anh Bill chỉ cho phép AllowFiltering:=True thôi, còn AllowSorting:=True thì không thấy nhúc nhích nhỉ? Có nghĩa là Check chơi thôi chứ sử dụng không được!

 

[tungmsb]

HiHi. Cám ơn các Bác. Em đã làm được rồi.

 

[tungmsb]

Còn một vấn đề nữa. Đó là khi em bắt đầu mở file lên thì không lọc được. Em muốn mọi người mở file lên có thể lọc để xem dữ liệu luôn. Các Bác giúp em với

 

[tungmsb]

Anh ơi. Còn 1 vấn đề nữa: Đó là khi em mở file lên thì không lọc được. Anh giúp em với

 

[Hoàng Trọng Nghĩa]

Anh ơi. Còn 1 vấn đề nữa: Đó là khi em mở file lên thì không lọc được. Anh giúp em với

Bó tay với bạn luôn đó, thì sửa chỗ nào có Sheet2.ProtecSheet thì thêm allow filter chứ có gì đâu!

Sub LockSh2()
    On Error Resume Next
    With Sheet2
        .Select
        .Unprotect "123456"
        .Cells.Locked = False
    End With
    Selection.SpecialCells(xlCellTypeConstants, 23).Locked = True
    Selection.SpecialCells(xlCellTypeFormulas, 23).Locked = True
    Sheet2.Protect "123456", AllowFiltering:=True
    Sheet2.Bebe2.Caption = "UnProtect"
    Sheet2.Bebe2.ForeColor = &HFF&
    
End Sub