Sub Unprotect()

'stops screen updating

Application.ScreenUpdating = False



'unprotects locked cells

For Each sht In ActiveWorkbook.Sheets
sht.Unprotect Password:="teslinoor"
Next
ActiveWorkbook.Unprotect Password:="teslinoor"

End Sub

"sht.Unprotect Password:="teslinoor" is the error. I have even tried manually unprotecting the file by typing in nthe password from the protect macro, but that has failed as well. Now my file is locked and I unable to unlock it for further editions.

-JT