My Excel sheet 13 isn't Unprotecting. Please help!

[Tarali]

I gave the code, perhaps wronly:

sheet13.protect password = "2710"
to protect the sheet with the intent to use my password as 2710. However, I couldn't unprotect with password 2710. Please, help me. What could I do?

 

[Tarali]

Are you sure the code is actually getting to the Unprotect line ?
Try using F8 to step through the code to see if it jumps over those lines.
I did ask that you post the code so we could have a look through it ?

Sub ShowTEST_AnalysisConditional()

Application.ScreenUpdating = False
'GROUP A ---WHEN ALL TEST REQUIRED GIVEN IN AN AP
If Sheets("Switch").Range("Q10").Value <> "" And _
Sheets("Switch").Range("S10").Value <> "" And _
Sheets("Switch").Range("U10").Value <> "" And _
Sheets("Switch").Range("W10").Value <> "" And _
Sheets("Switch").Range("Y10").Value <> "" Then

Application.ScreenUpdating = False
Sheet13.Unprotect Password = "2710"
ActiveSheet.PageSetup.PrintArea = "$A$2:$AB$47,$A$50:$AB$96,$A$98:$AB$146,$A$148:$AB$194,$A$198:$AB$244"
Sheets("Tests_Analysis").scrollarea = "$A$2:$AB$244"
'Call RectangleT3_Covered
'Call RectangleT4_Covered
'Call RectangleT5_Covered
Sheet13.Protect Password = "2710"
Application.ScreenUpdating = True

End if

End Sub

 

[Michael M]

The code on the link you provided is slightly different.....the very first line in that code says "ElseIf" the code in post #11 doesn't.
Also, where is the original line of

Sheet13.Protect Password = "2710"

The macro you provided doesn't show an initial Protect Line. and that could be where your problem lies.
Did you manually protect Sheet13 to start with ??