Open password protected files in folder using list of passwords

I want to run a macro that simply unprotects all files in a folder, saves and closes. I have the passwords and related file names and paths in a list.


This is the macro that sets the passwords based on the list

Please Login or Register  to view this content.

Now I want to figure out away to reverse engineer that code so it will unprotect all the workbooks and save and close them as unprotected.

Thanks



Edit: I should also add that it is not necessary to have new macro based on that code above. I will be happy with any code that gets the job done.

You should be able to use very similar code.

Take a look at the parameters for Workbook.Open ... one of them is the password.


Regards, TMS

Please Login or Register  to view this content.

Regards, TMS

Should look something like:

Please Login or Register  to view this content.

Regards, TMS

You're welcome. Thanks for the rep.

You possibly have a space in the last cell rather than a file name.





If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.

Please post a sample workbook.


Regards, TMS

The last row doesn't have a space, fair enough. However, in the sample workbook provided, rows 38 to 44 are blank. Looks as though you never actually get to the end of the list.

Change the code to this and it should cope with gaps in the list.

Please Login or Register  to view this content.

Note that your original code will need adjustment too ... or just make sure there are no gaps.


Regards, TMS

You'e welcome.