Unprotecting Selected Sheets Only on Multiple Fil

[stroffso]

Hi,

I have 20 files to edit, all of which have a differing number of tabs protected (with the same password), What I want to do is select the protected tabs on each file manually, then run some code to unprotect, I then do what I need to do and protect again using similar code. Also to note that the tab names to protect and unprotect on each file are different

I have the below and have searched around but can only find protect or unprotect all routines. Would anyone be able to help here?

Sub UnProtectAllSheets()
    Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Unprotect "john12345"
    Next ws

End Sub

 

[Jimmypop]

Maybe use a button or something to call the below module? You would need to select your sheets and run the following...

Sub UnprotectSelected()
    Dim ws As Worksheet
    For Each ws In ActiveWindow.SelectedSheets
         ws.Unprotect "john12345"
    Next ws
End Sub

 

[stroffso]

Maybe use a button or something to call the below module? You would need to select your sheets and run the following...

Sub UnprotectSelected()
    Dim ws As Worksheet
    For Each ws In ActiveWindow.SelectedSheets
         ws.Unprotect "john12345"
    Next ws
End Sub

Outstanding thank you that works great

 

[Jimmypop]

Glad to be of assistance