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

Hi PD,

welcome to the forum.

You need to wrap your code in below style:-

'put your code here

Use # button available on top when you edit your post.

Now, try un-protecting the worksheets using code:-
just replace the respective line with the line ws.Protect Password = "clean123"

and let me know if this helps. thanks.


Regards,
DILIPandey
<click on below * if this helps>

Great

Please mark this thread as [SOLVED].. thanks.

Regards,
DILIPandey
<click on below * if this helps>

Based on your last post in this thread, its apparent that you are satisfied with the solution(s) you've received and have solved your question, but you haven't marked your thread as "SOLVED". I will do it for you this time.

In future, to mark your thread as Solved, you can do the following -
Select Thread Tools-> Mark thread as Solved.

Incase your issue is not solved, you can undo it as follows -
Select Thread Tools-> Mark thread as Unsolved.

Also, since you are relatively new to the forum, i would like to inform you that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post which helped you. This adds to the reputation of the person who has taken the time to help you.

IGEDIT,

Your post does not comply with Rule 11 of our Forum RULES.

Don't post questions regarding breaking or bypassing any security measure. Such posts will be deleted, and repeat offenders will be banned. This includes posting of links to sites that offer software, code or services to do this or posting of code to remove passwords

Hence, your post has been removed.