For a workbook

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)

--
Regards,
Tom Ogilvy


"uno@korsmaa" wrote in message
...
Hello

How to programmatically check if a workbook is protected or not?

Rgs
Uno Kõrsmaa