Batch open and print password protected Excel workbooks

I have invoices I must send and receive each month. When I prepare them, they are saved in a folder unprotected. I then have a macro that prepares a list for my manager to check the figures. If she agrees, I open each one and send. The VBA for that, re-protects the file and sends it to the appropriate employee.

They "digitally" sign it by completing the name and date field, and send it back to me, still protected. I affix SIGNED to the end of the filename and place all in a "Signed" folder.

What I need is a routine that will batch open the files from a list of the passwords (perhaps in a vlookup), and then prints the appropriate page.

Is it possible on the open dialog to have a macro run to open with the appropriate password inserted into the dialog?

Thanks! It manages to open the first wkbk so that portion is working great, however, it thrown an error on the next line and stops.

Sub PrintWorkbooks()
Dim cell, rng As Range
Dim wb_loc, wb_name, wb_ext, wb_pw As String
Dim wkbk As Workbook

wb_loc = "C:\temp\Test\"
wb_ext = ".xlsx"
Set rng = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
For Each cell In rng
wb_name = cell.Value
wb_pw = cell.Offset(0, 1).Value
Set wkbk = Workbooks.Open(Filename:=wb_loc & wb_name & wb_ext, Password:=wb_pw)
wkbk.Sheets(Sheet3).PrintOut Copies:=1 '(Set what you want to print)
wkbk.Close SaveChanges:=False
Next cell
End Sub

I tried it many ways including that and it says "subscript out of range"

Same....Subscript out of range

I changed it to the actual sheet name:
Sheets("Invoice").PrintOut Copies:=1

Actually, no worries! If I hide the lines with files not found in the folder, it runs perfectly. If as an exercise you wish to tackle something that wouldn't need that, great. Otherwise, you did a great service for me today! Thank you!

great Thank you, as I discovered that only worked when the hidden files were at the end. It also needs the .xlsx extension. Is there a way to put a wild card for that, such as .xls* ?