macro code to change file-opening password

[arunjoshi]

i have created a testing tool which is meant for administering a test
containing multiple-choice questions.

the test-taker is given a copy of the file, and a password (say,
"open_sesame", without the quotes) which allows him to start the test.
after he has completed the test, he needs to click a button which runs
a macro that saves and closes the file.

I also want this macro to change the password (from "sesame" to the
contents of cell A1 in Sheet1) before it is saved and closed.

the idea is to make the file unusable a second time, becasue the
test-taker would not know password to start the test once it has been
re-set.

can you help me with the macro code for re-setting the password.
thanks.

 

[dominicb]

Good morning Arunjoshi

This code should help:

Sub Save1()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Book4.xls", Password:="password1"
Application.DisplayAlerts = True
Application.Quit
End Sub

When called this macro will save the file Book4.xls to the location C:\
with the password set as password1, irrespective of whether or not
another password was set to the file. The Application.Quit command
will then close Excel.

HTH

DominicB