Filter advance bằng VBA rồi nhưng không xóa lọc được khi protect sheet? (4 người xem)

[tuanbhxh_excel]

Mình có file excel lọc dữ liệu bằng VBA thông qua 2 nút "Tìm kiếm" và " Quay lại". Nhưng khi mình khóa các ô excel trong sheet1 thì nút " Quay lại" không hoạt động ( dùng chức năng Protected sheet, mật khẩu: 123456 ). Anh (chị) nào biết sửa lỗi này giúp em với.

 

[XuanThanh]

Unprotect Sheet trước khi thực hiện lệnh sau đó Protect lại

 

[tuanbhxh_excel]

"Unprotect Sheet trước khi thực hiện lệnh sau đó Protect lại " Cái này làm trong VBA thế nào vậy bạn?Khi protect thì không chạy được sub quaylai3()

Sub quaylai3()
ActiveSheet.ShowAllData
End Sub

 

[thanh.bq]

"Unprotect Sheet trước khi thực hiện lệnh sau đó Protect lại " Cái này làm trong VBA thế nào vậy bạn?Khi protect thì không chạy được sub quaylai3()

Sub quaylai3()
ActiveSheet.ShowAllData
End Sub

Làm như bác xuanthanh đó bạn.

Sub quaylai3()
    activesheet.unprotect(123456)'mo khoa sheet'
    ActiveSheet.ShowAllData
    activesheet.protect(123456)'khoa sheet'
End Sub

 

[tuanbhxh_excel]

Cảm ơn bạn. Mình chạy đoạn code trên thì ok rồi.