Does a password exist...?

[DJB]

Hi everyone

I am using these two lines of code to determine whether or not workbook protection or worksheet protection has been turned on.

If ActiveWorkbook.ProtectStructure = True Then ...
If ActiveSheet.ProtectContents = True Then ...

this works fine,but I would like to know of it is possible to detect if either of these methods of protection, if being used, are password protected. I am a bit stumped here.

Thanks for any advice.

DJB

[NickHK]

DJB,
You could try to unprotect the object without supplying a password.
If it fails, then a password is required.

NickHK

"DJB" <[email protected]> wrote in message
news:[email protected]...
>
> Hi everyone
>
> I am using these two lines of code to determine whether or not workbook
> protection or worksheet protection has been turned on.
>
> If ActiveWorkbook.ProtectStructure = True Then ...
> If ActiveSheet.ProtectContents = True Then ...
>
> this works fine,but I would like to know of it is possible to detect if
> either of these methods of protection, if being used, are password
> protected. I am a bit stumped here.
>
> Thanks for any advice.
>
> DJB
>
>
> --
> DJB
> ------------------------------------------------------------------------
> DJB's Profile:
http://www.excelforum.com/member.php...o&userid=21221
> View this thread: http://www.excelforum.com/showthread...hreadid=375003
>

[DJB]

Hi Nick and thanks for your suggestion.

However, if you try to unprotect a password protected worksheet or workbook using a macro, it doesn't fail, it just asks you for the password.

Any other ideas? Anyone...?

Thanks

DJB

[STEVE BELL]

Try:

Application.DisplayAlerts = False

On Error GoTo line1:
ActiveSheet.Unprotect password:=""
Application.DisplayAlerts = True
Exit Sub
line1:
MsgBox "Password reguired"
Application.DisplayAlerts = True
--
rand451
"DJB" <[email protected]> wrote in message
news:[email protected]...
>
> Hi Nick and thanks for your suggestion.
>
> However, if you try to unprotect a password protected worksheet or
> workbook using a macro, it doesn't fail, it just asks you for the
> password.
>
> Any other ideas? Anyone...?
>
> Thanks
>
> DJB
>
>
> --
> DJB
> ------------------------------------------------------------------------
> DJB's Profile:
> http://www.excelforum.com/member.php...o&userid=21221
> View this thread: http://www.excelforum.com/showthread...hreadid=375003
>

[DJB]

Thanks very much for your help guys.

I was hoping that there would be a read only flag I could check or something like that - I really only wanted to return the information, not turn the protection off - but it seems it doesn't work that way!

Anyway, thanks for the example code - it's got me sorted on the right track.

Thanks again!

DJB