Macro to open wrkbk & enter psswrd whether wrkbk is read write or read only

Hi,
The below code was originally written to work for excel 2007 and does as follows:
If BOOK1.xlsm is being used by another user on the network then the code will open BOOK1.xlsm as readonly and at the same time write the password abc123 which protects the workbook, but if no one is using the workbook then the code will open BOOK1.xlsm in regular read-write format and again at the same time write in the password abc123.
I now use Excel 2010 and when I ran this code on the 2010 version one part of the code did not work, I did not get any error messages but when the code opened the workbook in readonly format i was prompted by excel to enter the password.

Please Login or Register  to view this content.

Any help on this issue would be greatly appreciated.

Thanks in advance.

Hi shg,
Good point i'm not sure myself why it's there lol!
I took it out but outcome of code remains the same.

Hi shg,
How do i remove the writers password? The regular password to open the workbook i don't want to remove but i don't see any writers password.
Please advise.
Thanks.

There is only 1 prompt message to enter password and that password opens the workbook. And when i went into the general opetions there was no password to modify but just a password to open the workbook?

Thanks! Enjoy your flight
Can i contact you again at a time and day that is convenient for you?

I am utterly speechless!
I am so happy this issue got resolved and all the thanks goes to you
Your knowledge in excel is most appreciated, thank you for sharing it with us!
All the best to you, my friend