Ran Macro that Password Protected Sheets, Now won't Unprotect

I ran the following Macro (written for the active workbook- to turn auto calculation on, password protect each worksheet and close/save the workbook) which worked just fine, however, when I try to un-protect any of the sheets, I end up with an Incorrect Password error. Please help - currently, I cannot edit any of the worksheets in this workbook. Apologies are offered in advance if I have broken any posting rules as this is my first post.

Sub ActivateClose()

Dim ws as WorkSheet

Application.Calculation = xlCalculationAutomatic
For Each ws in WorkSheets
ws.Protect Password = "clean123"
Next ws
Exit For
ActiveWorkbook.Close SaveChanges:=True

End Sub

Thanks for your help,

PD