For your safety, the archive has been scanned. a1b2c3... (Add real hash after scanning)
resource, a comprehensive collection of automation scripts and macros originally compiled as a joint project by experts Hans W. Herber, Tom Urtis, and Bill Jelen (MrExcel)
Sub UnprotectAllSheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Unprotect "password" 'Change or leave blank if no password Next ws End Sub
