El tip consiste en una macro que al ejecutarse descubre la contraseña y desprotege la hoja respectiva.
Pasos a seguir
Hay que crear una macro con el siguiente código:
Sub Descubrir_contraseña()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim a1 As Integer, a2 As Integer, a3 As Integer
Dim a4 As Integer, a5 As Integer, a6 As Integer
On Error Resume Next
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _
& Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)
ActiveSheet.Unprotect Contraseña
If ActiveSheet.ProtectContents = False Then
MsgBox "¡Enorabuena!" & vbCr & "La contraseña es:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Consulte dónde o cómo crear una macro.
Una vez creada la macro, se posiciona en la hoja que quiere desproteger y ejecuta la macro, la cual tardará algún tiempo en ejecutarse (no se preocupa si su archivo parece bloquearse) para luego generar una alerta con una contraseña alternativa pero equivalente, según nos cuenta Dina, pero en realidad la contraseña ya no importa puesto que la hoja ha sido desprotegida y se puede proteger de nuevo con otra contraseña.
En las pruebas que hicimos en Excel 2003 y 2007, basta con ejecutar la macro para desproteger la hoja. No ha sido necesario seguir todos los pasos expuestos en el enlace colocado al inicio de ese documento.
Si cada hoja del libro tiene una contraseña diferente, en cada una de esas hojas hay que ejecutar la macro, puesto que esta sólo descubre la contraseña de la hoja activa.
Tenga en cuenta que esta macro sirve para desproteger las hojas como el libro según nuestras pruebas.
Nota. Tenga en cuenta que si el archivo que intenta desproteger es de un tercero que lo ha distribuido protegido, desprotegerlo podría no ser correcto o ético.
Visto | www.gerencie.com