Cách Bảo vệ / Bỏ bảo vệ tất cả các Trang tính bằng VBA trong Microsoft Excel 2010
Trong bài viết này, bạn sẽ học cách bảo vệ và bỏ bảo vệ tất cả các trang tính bằng mã VBA.
Để mở màn hình trình soạn thảo VBA, hãy làm theo các bước được đề cập dưới đây:
Nhấp vào tab Nhà phát triển Từ nhóm Mã chọn Visual Basic
Click on Insert, and then Module
Điều này sẽ tạo mô-đun mới.
Nhập mã sau vào Mô-đun để bảo vệ tất cả các trang tính.
Sub Protect ()
‘Lặp lại tất cả các trang trong sổ làm việc
Đối với i = 1 To Sheets.Count
Trang tính (i) .Protect
Tiếp theo tôi
End Sub
Để Bỏ bảo vệ tất cả các trang tính, hãy sử dụng mã sau.
Sub UnProtect ()
‘Lặp lại tất cả các trang trong sổ làm việc
Đối với i = 1 To Sheets.Count
Trang tính (i) .UnProtect
Tiếp theo tôi
End Sub
Nhấn phím tắt ALT + F8 để mở cửa sổ Macro và sau đó chọn macro Bảo vệ.
Ngoài ra, bạn có thể nhấn F5 để chạy mã trong màn hình VBA.
Sau khi thực hiện macro; tất cả các trang tính sẽ được bảo vệ.
Nhấn ALT + F8 và chọn Unprotect
Điều này sẽ bỏ bảo vệ tất cả các trang tính.
Bằng cách này, chúng tôi có thể bảo vệ & bỏ bảo vệ trang tính khi & khi được yêu cầu.