Todd đã phát triển một sổ làm việc được những người khác sử dụng. Để ngăn dữ liệu bị hủy hoại, anh ấy đã bảo vệ trang tính cũng như sổ làm việc. Vấn đề là Todd đôi khi quên bảo vệ trang tính và sổ làm việc sau khi thực hiện các thay đổi. Anh ấy đang tự hỏi liệu có cách nào để tạo một chỉ báo trực quan cho biết trang tính / sổ làm việc hiện được bảo vệ hay không được bảo vệ.

Tất nhiên, cách dễ nhất để kiểm tra xem có thứ gì đó không được bảo vệ hay không là bắt đầu xem xét các công cụ trên các tab ribbon khác nhau. Nếu có đầy đủ các công cụ ở đó, thì trang tính và sổ làm việc không được bảo vệ. Nếu có một số lượng lớn các công cụ không khả dụng (“chuyển sang màu xám”), thì tính năng bảo vệ được bật.

Một giải pháp dễ dàng khác là tạo một hàm do người dùng định nghĩa trả về một giá trị cho biết liệu sổ làm việc hoặc trang tính có được bảo vệ hay không. Sau đây sẽ thực hiện thủ thuật:

Function WksProtected(rng As Range) As String     Application.Volatile     If rng.Parent.ProtectContents Then         WksProtected = "Protected"

Else         WksProtected = "Not Protected"

End If End Function
Function WkbProtected(rng As Range) As String     Application.Volatile     If rng.Parent.Parent.ProtectStructure Then         WkbProtected = "Protected"

Else         WkbProtected = "Not Protected"

End If End Function

Để sử dụng macro, chỉ cần đưa các công thức như sau vào bất kỳ đâu trong trang tính:

=WksProtected(A1)

=WkbProtected(A1)

Kết quả của các công thức là “Được bảo vệ” hoặc “Không được Bảo vệ”,

tùy thuộc vào trạng thái của trang tính và sổ làm việc. Bạn có thể sử dụng định dạng có điều kiện để đánh dấu các ô dựa trên những gì được trả về bởi các hàm.

Hãy nhớ rằng: Giá trị từ các hàm chỉ được cập nhật nếu trang tính được tính toán lại. Nếu tất cả những gì bạn làm là bảo vệ (hoặc bỏ bảo vệ) trang tính, điều đó không dẫn đến việc trang tính được tính toán lại. Vì vậy, để xem kết quả thích hợp sau khi thay đổi trạng thái bảo vệ, bạn cần đảm bảo tính toán lại trang tính.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

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

Mẹo này (9639) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: