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

img1 Click on Insert, and then Module

img2

Đ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

img3

Để 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ệ.

img4

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

img5

Đ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.