Unprotect Workbook VBA code

I have a workbook (not individual worksheets- the entire workbook)
that requires a password on opening
and then a 'reserved password' - but I can select Read-Only here

can someone please tell me how I get a marco in another workbook
to enter the required password in the first box and select read-only in the second

oh and when I say macro i mean the VBA Code -

Thanks in advance

dominic

Thanks a million - worked a treat!