With Workbook
if .ProtectWindows or
.ProtectStructure then
End if
End With
For a Worksheet
With ActiveSheet
if .ProtectContents = True or _
.ProtectDrawingObjects = True or _
.ProtectScenarios = True or _
.ProtectMode = True then
' sheet is protected
End if
End With
If you want to know if a workbook is password protected, I believe you have
to attempt to open it and see if the attempt fails (suppressing the prompt
and handling the error)