Wrong password - Why?

[John Curio]

Hi

Why does this code give me the wrong password?
The msgbox says "105" instead of "124".
And the crazy thing is, that Excel unprotect the password with 105.
Can somebody explain me that phenomena?

Sub Passwort()
Dim i As Integer
ActiveSheet.Protect Password:=124
On Error Resume Next
For i = 1 To 110
ActiveSheet.Unprotect Password:=i
If ActiveSheet.ProtectContents = False Then
MsgBox "The Password is: " & i
Exit For
End If
Next i
End Sub

Thank's
John

 

[Harlan Grove]

Why does this code give me the wrong password?
The msgbox says "105" instead of "124".
And the crazy thing is, that Excel unprotect the password with 105.
Can somebody explain me that phenomena?

....

Excel's internal passwords are VERY WEAK. This is an excellent
example.

See the following for more details.

http://www.mcgimpsey.com/excel/removepwords.html

 

[John Curio]

Hi Harlan,
thanks a lot for that link. That's what I was looking for.
john