Using code and apply to other spreadsheet?

[bsnapool]

I have the following code which meets my requirments for individual spreadsheets....

Sub Unprotect52() 
Dim ws As Worksheet 

    For I = 1 To 52 
        Set ws = Worksheets(CStr(I)) 
        With ws 
            .Unprotect "liverpool" 
            .Cells.ClearContents 
            .Protect "liverpool" 
            .Tab.ColorIndex = -4142 
        End With 
    Next I 

End Sub

I have 75 spreadsheets which are the same, in the same directory/folder. Is there any way I could run this code and this would run on all 75 spreadsheets?

Note, 75 spreadsheets have passwords on them, but I have a full list of team names and passwords.

Any help would be much appreciated.

Thanks

Andrew

 

[bsnapool]

I think this is corect... Im sure you will tell me otherwsie... When I corrected the below code to FALSE

'if filename/password was found, code continues here 

            'open the workbook, sets to variable Bk 
            Set Bk = Workbooks.Open(Filename:=.FoundFiles(i), _ 
            ReadOnly:=True, Password:=sPassword)

?

 

[Von Pookie]

...huh? I'm afraid I have no idea what you're trying to say, here. What's the question?

 

[bsnapool]

Hit the jackpot!!! Kristy you are a legend...

My previous post stated that I made one slight amendment to the code read only: TRUE. I changed to FALSE.

'if filename/password was found, code continues here 

            'open the workbook, sets to variable Bk 
            Set Bk = Workbooks.Open(Filename:=.FoundFiles(i), _ 
            ReadOnly:=True, Password:=sPassword)

Kristy, thanks once again, although I will use this code once a year, This will save me 2 whole days work.


Andrew