Cách tạo mật khẩu bảo vệ bằng macro
Bạn có muốn đảm bảo rằng tất cả các trang tính trong thư mục bạn chọn đều được bảo vệ bằng mật khẩu bằng macro không? Điều này có thể hữu ích nếu bạn gặp quá nhiều khó khăn trong việc bảo vệ các trang tính riêng lẻ hoặc nếu bạn muốn tự động bảo vệ tất cả các sổ làm việc trong một thư mục. Sử dụng macro sau để gán mật khẩu "bảo vệ" cho tất cả các trang tính trong thư mục hoạt động:
Sub AllSchuetzen ()
Làm mờ trang tính dưới dạng trang tính
Đối với mỗi trang tính trong ActiveWorkbook.Worksheets
Blatt.Protect ("bảo vệ")
Tờ tiếp theo
Kết thúc Sub
Thay vì văn bản "Schutz", hãy sử dụng mật khẩu bạn chọn. Tất nhiên, mã chương trình này chỉ có ý nghĩa nếu bạn nhập nó bên ngoài sổ làm việc mà bạn đang tạo bảo vệ. Nếu không, mọi người dùng có thể đọc ra mật khẩu trong văn bản nguồn VBA.
Để có thể thay đổi nội dung nào đó trong trang tính được bảo vệ, bạn phải loại bỏ bảo vệ. Bạn có thể thực hiện việc này theo cách thủ công với lệnh EXTRAS - PROTECTION - HỦY BẢO VỆ LÁ. Lệnh này chỉ khả dụng nếu trang tính hiện tại thực sự được bảo vệ.
Nếu bạn muốn phát hành lại tất cả các trang tính được bảo vệ bằng macro, hãy sử dụng mã chương trình sau:
Sub AllExposure ()
Làm mờ trang tính dưới dạng trang tính
Đối với mỗi trang tính trong ActiveWorkbook.Worksheets
Blatt.Unprotect ("bảo vệ")
Tờ tiếp theo
Kết thúc Sub
