en ese caso es para una hoja, no un documento... y veo raro los algoritmos porque solo prueban de AAAAAAAAAAAA hasta BBBBBBBBBBBz y siendo VBscript, sabemos que eso puede ser una vida... pero me da curiosidad... en realidad funciona?
Si , si que me funciono. Cúando llegue ha casa busco el macro que use y GE lo paso , para que lo pruebes . mi contraseña tenia números y letras (creo recordar).
A ver si no se me olvida luego
Saludos
edito.
aqui tienes el macro
Abres una hoja de excel nueva -----------pulsas ALT+f11---------insertar modulo------------y en modulo 1 copias este codigo
Sub jd()
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 "¡JD TE DA TU CONTRASEÑA!"
& 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
despues
archivo------------importar---------lo guardas donde quieras----------abres tu hoja protegida--------alt+f11------------importar ----------seleccionas el modulo que has creado antes-------cierras-------------alt+f8----selecciona jd--------ejecutas y listo te dará una contraseña que aunque no se parecerá en nada a la tuya , sera valida .
por supuesto esto es para hojas y libros protegidos, si lo que tienes es una contraseña al archivo, es mas difícil
saludos
Autor
En línea
