Cái khó khi sử dụng VBA để Protect sheet:

[ly_hieu_thuan]

Chào cộng đồng bảng tính!
Mình đang thiết lập một Proiect, cần thực hiện một vấn đề như sau:
*Sheets("Ban hang") được Protect với một PassWord là hàng hằng số pw đã được khai báo dạng Public
*Nhưng khi Protect Sheets("Ban hang") bằng câu lệnh:
ActiveSheet.Protect (pw)
thì Sheets("Ban hang") không được dùng Filter, còn muốn dùng Filer như thế này
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
thì lại không có Password nên ai cũng có thể Unprotect được.
Làm sao để được cả 2, xin giúp đở dùm ạ!

 

[Po_Pikachu]

Viết như vậy nè ông bạn. ActiveSheet.Protect pw, AllowFiltering:=True Thân.

 

[ndu96081631]

Chào cộng đồng bảng tính!
Mình đang thiết lập một Proiect, cần thực hiện một vấn đề như sau:
*Sheets("Ban hang") được Protect với một PassWord là hàng hằng số pw đã được khai báo dạng Public
*Nhưng khi Protect Sheets("Ban hang") bằng câu lệnh:
ActiveSheet.Protect (pw)
thì Sheets("Ban hang") không được dùng Filter, còn muốn dùng Filer như thế này
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
thì lại không có Password nên ai cũng có thể Unprotect được.
Làm sao để được cả 2, xin giúp đở dùm ạ!

Hướng dẩn bạn cách để tự bạn có thể hiểu và làm được (không phụ thuộc vào code của người khác)
1> Bật chức năng Record macro lên
2> Vào menu Tools\Protection\Protect Sheet ---> Kéo thanh trượt xuống, check vào mục "Use AutoFilter" ---> Gõ pass vào
3> Tắt chức năng Record macro ---> Bấm Alt + F11 vào xem nó viết cái gì trong code
Từ đây có thể phát triển thêm theo ý muốn

 

[ongtrungducmx25]

Bạn có thể giở gởi file đó lên được không bạn nhỉ!

 

[ly_hieu_thuan]

Cảm ơn bạn Po_Pikachu nhiều, còn làm như bạn ndu98081631 mình đã làm thử rồi mà không được như ý, dù sao cũng cảm ơn bạn!