Great!!! Now my last question, how would I get this code to run when the user
closes the workbook?

Thanks again for all the wonderful answers!!!

"Mike H." wrote:

Assuming the passwords are "Frogs", the code is:

Workbooks.Open Filename:="c:\Sub1.xls", Password:="Frogs",
UpdateLinks:=3, WriteResPassword:="Frogs"