I have the following code which meets my requirments for individual spreadsheets....
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
Code:
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