Code khóa sheet mà không hiện hộp Input để nhập Pass

[DMQ]

Chào các anh chị trên DĐ !!!!
Em có tìm trên GPE rồi, code khóa sheet thì có rồi, nhưng khi code chạy thì hiện hộp thoại Input để nhập Pass.
Nay em nhờ các anh chị viết code cho như sau:
File có 3 sheet: sheet1, sheet2, sheet3. Khi mở file, mặc định sheet1 hiện, nhưng đã protect sheet, còn sheet2 và sheet3 ẩn.
Em nhờ các anh chị viết code cho 2 nút; nút mở khóa sheet và nút khóa sheet.
1/Nút mở khóa sheet: khi nhấn nút này thì mở khóa sheet1 và hiện sheet2 và sheet3.(không hiện hộp thoại Input, pass mở khóa mặc định là "DMQ")
2/Nút khóa sheet: khi nhấn nút này thì sheet1 khóa sheet, sheet2 và sheet3 ẩn.
Mong các anh chị giúp đỡ.

 

[DMQ]

Em có làm file, mong các anh chị xem sao code báo lỗi ạ.

 

[DMQ]

Khi mở file lên, báo lỗi:

Nhấn Debug, báo:

Mong các anh chị giúp đỡ ạ.

 

[HieuCD]

Khi mở file lên, báo lỗi:
View attachment 295082
Nhấn Debug, báo:
View attachment 295083
Mong các anh chị giúp đỡ ạ.

Workbook đã bị khóa, mở khóa sẽ hết lỗi

 

[DMQ]

Ủa kỳ vậy ta.
Em đâu có khóa Workbook.
Cám ơn anh @HieuCD.

 

[DMQ]

Anh chị nào giúp em đoạn code mà khi protect sheet vẫn cho Filter và Sort ạ.

 

[BuiQuangThuan]

Anh chị nào giúp em đoạn code mà khi protect sheet vẫn cho Filter và Sort ạ.

Thu lại macro là được đoạn code đó mà