VBA macro to unlock password protected workbook and worksheet

Hi,

I received such files every month:
Sales_China.xlsm
Sales_India.xlsm
Sales_Korea.xlsm

All these files are password protected. The password is stored in another file in the following format:

Column A Column B
China jUhI
India ruOp
Korea uEws

The sheets in the file I receive are protected with 'abcd123'. This is the same for all files.

How do i write a macro such that if the file contains values that match Column A in the file with the passwords, unlock the file with the respected password and save the file as .xslx.

The ultimate goal is to save all the file as .xlsx. I receive 50+ such files and so doing it manually is a bit tedious.

Something along these lines, perhaps
Rather than try and associate the file with a password, I just tried all the passwords until one worked.

Please Login or Register  to view this content.

Hi,

Thanks for this.

I should have been more clear.

There are 2 types of files: one is the .xlsm (Sales_China.xlsm ) that I receive and the other is one which contains list of countries and their respective passwords

Put the xlsm files in their own folder, open the one with the passwords, paste the code (changing the path) and run.

Thanks for this!

But unfortunately when the code runs, its opens up the .xlsm and requires me to input the pw myself and doesnt save as .xlsx