Excel Macro to Change All Sheet Passwords

Backstory: A sheet was protected, the only individual with the password is out all week and a change was required for those of us not on vacation to continue our jobs this week. So I went ahead and used VBA to break the password but in doing so I accidentally saved before realizing that it broke and replaced the passwords for the entire workbook which has many, many protected sheets.

Is there any way to use VBA (or another method) to replace the passwords with a user-defined password for all worksheets simultaneously? I know what the new password for the sheets is. I'd like to make recovering from this as easy as possible

Thanks! I modified it to first unlock the sheets and then relock with the new password.

Please Login or Register  to view this content.