Andre có một sổ làm việc chứa 52 trang tính. Anh ấy muốn bảo vệ các trang tính, nhưng không muốn bảo vệ chính sổ làm việc. Hiện tại, cá nhân ông bảo vệ tất cả 52 tờ. Anh ta tự hỏi liệu có cách nào để bảo vệ tất cả chúng trong một lần.

Cách duy nhất để làm điều này là sử dụng macro. Rất may là macro khá ngắn:

Sub ProtectAllSheets()

Dim ws As Worksheet

For Each ws In Worksheets         ws.Protect     Next End Sub

Khi bạn chạy macro này, tất cả các trang tính trong sổ làm việc đều được bảo vệ mà không cần chỉ định mật khẩu. (Điều này có nghĩa là bất kỳ ai cũng có thể dễ dàng bỏ bảo vệ chúng.) Nếu bạn muốn chỉ định mật khẩu, bạn có thể làm như vậy với một sửa đổi dễ dàng:

Sub ProtectAllSheets()

Dim ws As Worksheet

For Each ws In Worksheets         ws.Protect Password:="MyPassword"

Next End Sub

Mật khẩu bạn chỉ định sẽ được sử dụng cho từng trang tính, có nghĩa là tất cả chúng sẽ sử dụng cùng một mật khẩu.

Bạn có thể dễ dàng sửa đổi các macro này để bỏ bảo vệ tất cả các trang tính của mình bằng cách chỉ cần thay đổi phương thức .Protect thành .Unprotect.

Bạn cũng nên biết rằng nếu sổ làm việc hoặc các trang tính của bạn sử dụng một số tùy chọn loại trừ việc bảo vệ trang tính (chẳng hạn như chia sẻ), thì các macro sẽ tạo ra lỗi.

Một cách tiếp cận hoàn toàn khác là sử dụng tiện ích của bên thứ ba để thực hiện việc bảo vệ. Bạn có thể tìm thấy những tiện ích như vậy bằng cách tìm kiếm trên Internet nhanh chóng; một ví dụ sẽ là Asap Utilities (http://www.asap-utilities.com).

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (7511) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.