How can I unprotect multiple same passoword worksheets at once?

[tomster3]

We have created a large number of workbooks containing worksheets that are
protected, except for a few cells, all with the same password. Is there any
way to remove protection from multiple worksheets at one time? We are trying
to avoid having to open each worksheet at a time, changing the one protected
text cell that needs changing, and then putting protection back on.

 

[Per Jessen]

We have created a large number of workbooks containing worksheets that are
protected, except for a few cells, all with the same password.  Is thereany
way to remove protection from multiple worksheets at one time?  We are trying
to avoid having to open each worksheet at a time, changing the one protected
text cell that needs changing, and then putting protection back on.

Hi

With all workbooks open this macro will unprotect all sheets in all
worksheets.

Sub RemovePassword()
MyPassword = "PassWrd"

For Each wb In Application.Workbooks
For Each sh In wb.Sheets
sh.Unprotect Password:=MyPassword ' To protect sheets change
to "sh.Protect Password...."
Next
Next
End Sub

Regards,
Per