For Each wb In Worksheets
wb.Unprotect a & b & c & d & e & f & g & h & i & j & k & l
If wb.ProtectContents Then: wsFound = False
Next

you have to add this into the worksheets loop for it to find all worksheet passwords