Solved: Process All Workbooks in a Given Directory Folder

[Pool Master]

Hi Everyone,

This is my first post and I've only been writing macros for a couple of months, so please bare with me if my inquiry is unclear.

I'm using Application.FileSearch and Workbooks.Open to open multiple workbooks and perform the same action on each of them. My macro works just fine if there are no workbooks with passwords, however in this case some of these workbooks are password protected. I need the macro to skip any workbook that has a password and move on to the next. Any help is highly appreciated.

Thank you!
Adam

[Bob Phillips]

Not tested, but this might work


Set wb = Nothing
On Error Resume Next
Set wb = Workbook.Open(filename)
On Error Goto 0
If Not wb Is Nothing Then
...

[Pool Master]

xld. That suggestion was almost perfect! All I had to do was add WriteResPassword="" and Password="" to create the runtime error for the Workbooks.Open.

Thank you so much for your help!
Adam

[lynnnow]

Don't forget to mark your thread solved when you get the perfect reply.