Excel - imprimir la contraseña

   
Vista:

imprimir la contraseña

Publicado por Alejandro (8 intervenciones) el 11/02/2009 23:26:27
hola estuve revisando por internet de como quitar contraseñas en los macros y encontre uno una funcion pero quisiera saber que me pudiera imprimir la contraseña que tenia puesto que solo la quita, pero quiero que me muestre la que tenia.

Sub PasswordBreaker()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

A la vez se que sirve de aporte para alguien que haya olvidado la contraseña de un documento.importante.
espero y me puedan ayudar.

gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:imprimir la contraseña

Publicado por Abraham Valencia (2418 intervenciones) el 12/02/2009 21:14:48
Aclaremos algunas cosas:

- Esa macro NO desprotege el documento en si, sino, alguna hoja con proteccion
- Dicha macro NO recupera la contraseña dada, sino que, obtiene una contraseña alternativa
- Para obtener dicha contraseña alterantiva, lo cual no entiendo para que serviria, pues cuestion simple de concatenar las variables usadas, no crees?

Abraham
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar