How to unlock multiple workbooks

[src68]

Hello again, is there a way to unlock multiple workbooks at the same time? i have over 79 workbooks that have the same range locked and i need to now unlock all of them and combine them on one worksheet in a new workbook. any suggestions? also is there a way to copy all the ranges of all workbooks into a new workbook on one sheet?

thx

 

[jbeaucaire]

'WORKBOOKS TO 1 SHEET STACKED
Here's a macro for collecting data from all files in a specific folder.

Workbooks to 1 Sheet​

The parts of the code that need to be edited are colored to draw your attention.


To unprotect the activesheet right before you copy, add this one line:

            Set wbData = Workbooks.Open(fPath & fName)  'Open file
            ActiveSheet.Unprotect "password"

        'This is the section to customize, replace with your own action code as needed
            LR = Range("A" & Rows.Count).End(xlUp).Row  'Find last row