Título: Encontrar pass de sólo lectura a una hojal excel 2007 Publicado por: Pox1 en 9 Febrero 2012, 23:33 pm Hola, mi consulta es la siguiente, Tengo una hoja excel con macros, de las cuales, esta protegido con contraseña, el archivo es de sólo lectura, asi que no se puede hacer modificaciones, me gustaria saber si se puede encontrar la contraseña usando visual basic 6.0; he conseguido eliminar la contraseña pero sólo necesito saber cual es el pass >:D, encontré el code de la macros pero en excel 2003, y un code en planet source que no me funka todavia pero lo estoy viendo igual tambien hay una fuente en aspnet...
Tambien podria crearlo >:D Código o la guía de recursos pero no me funka Código Si alguien tiene un ejemplo o algún enlace que lo quiera compartir, estaré muy agradecido, estoy usando excel 2007 y quiero encontrar la pass con vb, no usar programas externos compilados, lo hago para ver como va el source en vb gracias. Saludos. Título: Re: Encontrar pass de sólo lectura a una hojal excel 2007 Publicado por: MCKSys Argentina en 9 Febrero 2012, 23:53 pm Con Passware Password Recovery Kit lo sacas en 2 patadas. (Es pago, asi que debes buscar uno 'gratis' ;D)
Saludos! Título: Re: Encontrar pass de sólo lectura a una hojal excel 2007 Publicado por: BlackZeroX en 10 Febrero 2012, 08:42 am En la pagina de mygnet esta el código para obtener la contraseña de un documento de excel y de word protegidos por contraseña.
Dulces Lunas!¡. Título: Re: Encontrar pass de sólo lectura a una hojal excel 2007 Publicado por: Kerber0 en 12 Febrero 2012, 18:42 pm Para sacar la passwd de la hoja (te tira una del estilo AAABCK" pero sirve)
Código: Sub breakit() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n 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 "Un password valido es " & 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 |