One way:

Public Function IsProtected(ByRef wsSheet As Worksheet) As Boolean
IsProtected = wsSheet.ProtectContents
End Function

Call as, for example,


If IsProtected(ActiveSheet) Then ActiveSheet.Unprotect



In article ,
"Sheldon" wrote:

How do I question in code whether a worksheet is protected or not?

Thanks