Đoạn mã bỏ password trong tất cả các sheet

Liên hệ QC

Phanhanhdai

Thành viên tiêu biểu
Tham gia
16/3/08
Bài viết
733
Được thích
1,876
Nghề nghiệp
Thiết kế công trình
Em đã tìm hiểu rất nhiều về EX rồi. Nhưng hình như EX không có chức năng nhập pass cũng như phá pass cho tất cả các sheet cùng một lúc (nếu làm đơn lẻ thì sẽ rất lâu). Các bác có thể tư vấn giúp em đoạn này được không ạh. Em vô cùng cảm ơn!
 
Em đã tìm hiểu rất nhiều về EX rồi. Nhưng hình như EX không có chức năng nhập pass cũng như phá pass cho tất cả các sheet cùng một lúc (nếu làm đơn lẻ thì sẽ rất lâu). Các bác có thể tư vấn giúp em đoạn này được không ạh. Em vô cùng cảm ơn!

Tất cả đều là đơn lẻ, tuy nhiên ta sẽ tạo một vòng lặp để bỏ pass từng sheet thôi.

Thân!
 
Upvote 0
Bác dùng 2 code sau để khóa và mở cho tất cả các Sheet
PHP:
Sub khoa()
Dim sh
For Each sh In Worksheets
sh.Protect "password"
Next
End Sub
PHP:
Sub mo()
Dim sh
For Each sh In Worksheets
sh.Unprotect "password"
Next
End Sub
Thân.
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom