olvido de contraseña de archivo excel

%3CLINGO-SUB%20id%3D%22lingo-sub-1540055%22%20slang%3D%22es-ES%22%3Eoblivion%20password%20file%20excel%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1540055%22%20slang%3D%22es-ES%22%3E%3CP%3EI%20can't%20get%20into%20the%20information%20because%20I%20forget%20the%20password%2C%20there's%20some%20way%20to%20recover%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1540055%22%20slang%3D%22es-ES%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20functions%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1540439%22%20slang%3D%22de-DE%22%3ESubject%3A%20olvido%20de%20contrase'a%20de%20archivo%20excel%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1540439%22%20slang%3D%22de-DE%22%3EIf%20you%20are%20removing%20(not%20retrieving)%20a%20worksheet%20password%2C%20the%20following%20code%20can%20be%20used%3A%20%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3E%20In%20a%20common%20module%20we%20paste%20the%20following%20code%20that%20removes%20the%20code%20from%20the%20activated%20sheet%3A%20%3CBR%20%2F%3E%20Code%3A%20%3CBR%20%2F%3E%20'CAUTION!!%20Recommended%20only%20for%20proprietary%20Excel%20sheets!%20%3CBR%20%2F%3E%3CBR%20%2F%3E%20Option%20Explicit%20%3CBR%20%2F%3E%20Sub%20GetPass()%20%3CBR%20%2F%3E%20Const%20a%20%3D%2065%2C%20b%20%3D%2066%2C%20c%20%3D%2032%2C%20d%20%3D%20126%20%3CBR%20%2F%3E%20Dim%20i%2C%20j%2C%20k%2C%20l%2C%20m%2C%20n%2C%20o%2C%20p%2C%20q%2C%20r%2C%20s%2C%20t%20%3CBR%20%2F%3E%20with%20ActiveSheet%20If%20%3CBR%20%2F%3E%20.%20ProtectContents%20Then%20%3CBR%20%2F%3E%20On%20Error%20Resume%20Next%20For%20i%20%3D%20a%20To%20b%20For%20j%20%3D%20a%20To%20b%20%3CBR%20%2F%3E%20For%20k%20%3D%20a%20To%20b%20For%20l%20%3D%20a%20To%20b%20%3CBR%20%2F%3E%20For%20m%20%3D%20a%20To%20b%20For%20n%20%3D%20a%20To%20b%20For%20o%20%3CBR%20%2F%3E%20%3D%20a%20To%20b%20For%20p%20%3D%20a%20To%20b%20For%20q%20%3CBR%20%2F%3E%20%3D%20a%20To%20b%20For%20r%20%3D%20a%20%3CBR%20%2F%3E%20To%20b%20For%20s%20%3D%20a%20To%20b%20%3CBR%20%2F%3E%20For%20t%20%3D%20c%20To%20%3CBR%20%2F%3E%20d%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20.%20Unprotect%20Chr(i)%20%26amp%3B%20Chr(j)%20%26amp%3B%20Chr(k)%20%26amp%3B%20Chr(l)%20%26amp%3B%20Chr(m)%20%26amp%3B%20%3CBR%20%2F%3E%20J%26amp%3Bamp%3B%20Chr(o)%20%26amp%3B%20Chr(p)%20%26amp%3B%20Chr(q)%20%26amp%3B%20Chr(r)%20%26amp%3B%20Chr(s)%20%26amp%3B%20Chr(t)%20%3CBR%20%2F%3E%20Next%20t%20Next%20s%20Next%20r%20Next%20q%20Next%20p%20Next%20o%20Next%20%3CBR%20%2F%3E%20n%20Next%20m%20Next%20l%20Next%20k%20Next%20%3CBR%20%2F%3E%20j%20Next%20%3CBR%20%2F%3E%20i%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%20MsgBox%20%22Finished%22%20%3CBR%20%2F%3E%20End%20If%20With%20End%20Sub%20The%20time%20it%20will%20take%20depends%20to%20a%20large%20extent%20%3CBR%20%2F%3E%20on%20the%20power%20of%20the%20%3CBR%20%2F%3E%20%3CBR%20%2F%3E%3CBR%20%2F%3E%20computer.%20%3CBR%20%2F%3E%3CBR%20%2F%3E%20Third-party%20information%20disclaimer%20%3CBR%20%2F%3E%3CBR%20%2F%3E%20The%20third-party%20products%20that%20these%20article%20discusses%20are%20manufactured%20by%20companies%20that%20are%20independent%20of%20me.%20I%20makes%20no%20warranty%2C%20implied%20or%20otherwise%2C%20about%20the%20performance%20or%20reliability%20of%20these%20products%20%3CBR%20%2F%3E%3CBR%20%2F%3E%20I%20would%20be%20happy%20to%20find%20out%20if%20I%20could%20help.%20%3CBR%20%2F%3E%3CBR%20%2F%3E%20Nikolino%20%3CBR%20%2F%3E%20I%20know%20I%20don't%20know%20anything%20(Socrates)%3C%2FLINGO-BODY%3E
Occasional Visitor

No puedo entrar a la informacion por que olvide la contraseña, hay alguna manera de recupera

1 Reply
If you are removing (not retrieving) a worksheet password, the following code can be used:


In a common Module we paste the following code that removes the code from the activated sheet:
Code:
'CAUTION!! Recommended only for proprietary Excel sheets!

Option Explicit
Sub GetPass()
Const a = 65, b = 66, c = 32, d = 126
Dim i#, j#, k#, l#, m#, n#, o#, p#, q#, r#, s#, t#
With ActiveSheet
If .ProtectContents Then
On Error Resume Next
For i = a To b
For j = a To b
For k = a To b
For l = a To b
For m = a To b
For n = a To b
For o = a To b
For p = a To b
For q = a To b
For r = a To b
For s = a To b
For t = c To d
.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & _
Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t)
Next t
Next s
Next r
Next q
Next p
Next o
Next n
Next m
Next l
Next k
Next j
Next i
MsgBox "Finished"
End If
End With
End Sub

The time it will take depends to a large extent on the power of the computer.

Third-party information disclaimer

The third-party products that this article discusses are manufactured by companies that are independent of me. I makes no warranty, implied or otherwise, about the performance or reliability of these products

I would be happy to find out if I could help.

Nikolino
I know I don't know anything (Socrates)