I haven't figured out a way to modify the password without opening the file. You can however turn off calculations, screenupdating, etc., during the procedure to improve speed somewhat if the workbook e.g. contains volatile formulas.
As for (2), to pick up the password, replace sPW and/or sNewPW:
c(, 2).Value, or c.offset(,1).value, for the corresponding value in column C
c(, 3).Value for the corresponding value in column D
note that the reference in column B, c = c(1,1)
Let me know how that works for you.
Bookmarks