Nút lệnh không chạy khi sheets bị khóa

[DavidChau]

Tôi có tạo một bảng tính với 1 nút lệnh dùng để xóa những dòng trắng trong sheet6 như sau:
Sub CommandButton3_Click()
DK = CommandButton3.Caption = "Xoa Hàng Trang"
Range("A5:A43").SpecialCells(3, 22).EntireRow.Hidden = DK
CommandButton3.Caption = Choose(-1 * DK + 1, "Xoa Hàng Trang", "Khong Xoa Hàng Trang")
End Sub
Nhưng khi tôi khóa sheet bằng Tool => protection với pass là 123456 thì nút lệnh không có tác dụng, nếu mở khóa thì nút lệnh chạy bình thường.
Xin Anh (Chị) giúp đỡ tôi: làm thế nào khóa sheets mà nút lệnh vẫn chạy được.
Rất cám ơn!

 

[Hai Lúa Miền Tây]

Tôi có tạo một bảng tính với 1 nút lệnh dùng để xóa những dòng trắng trong sheet6 như sau:
Sub CommandButton3_Click()
DK = CommandButton3.Caption = "Xoa Hàng Trang"
Range("A5:A43").SpecialCells(3, 22).EntireRow.Hidden = DK
CommandButton3.Caption = Choose(-1 * DK + 1, "Xoa Hàng Trang", "Khong Xoa Hàng Trang")
End Sub
Nhưng khi tôi khóa sheet bằng Tool => protection với pass là 123456 thì nút lệnh không có tác dụng, nếu mở khóa thì nút lệnh chạy bình thường.
Xin Anh (Chị) giúp đỡ tôi: làm thế nào khóa sheets mà nút lệnh vẫn chạy được.
Rất cám ơn!

Thêm dòng lệnh mở khóa trước khi thực hiện ý đồ của bạn, sau đó khóa sheet lại như cũ.