Setting Password & WriteResPassword

[Kevin H. Stecyk]

Setting Password & WriteResPassword

Once I have opened a workbook that is Password protected and
WriteResPassword protected, how do I then save the workbook with a new
Password and WriteResPassword?

I know to open a workbook it is simply:

Workbooks.Open Filename:="MyBook.xls", Password:="TopSecret1",
WriteResPassword:="TopSecret2"

I thought Workbooks("MyBook.xls").Close would have the same properties. But
it doesn't.

Any guidance is appreciated.

Regards,
Kevin

 

[Kevin H. Stecyk]

Kevin H. Stecyk...

Setting Password & WriteResPassword

Once I have opened a workbook that is Password protected and
WriteResPassword protected, how do I then save the workbook with a new
Password and WriteResPassword?

I know to open a workbook it is simply:

Workbooks.Open Filename:="MyBook.xls", Password:="TopSecret1",
WriteResPassword:="TopSecret2"

I thought Workbooks("MyBook.xls").Close would have the same properties.
But it doesn't.

Any guidance is appreciated.

Regards,
Kevin

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Junk\DeleteBook.xls", FileFormat _
:=xlNormal, Password:="delete", WriteResPassword:="delete", _
ReadOnlyRecommended:=True, CreateBackup:=False