recuperar password de hoja protegida

Dado que la hoja es tuya, te paso un código que algún Master de este foro
posteó hace tiempo.

Sub PasswordBreaker()

'Rompe el password de proteccion de la hoja ACTIVA.
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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

"Sebastian Izuibejeres" escribió en el mensaje
news:u3$HIl$

tengo una planilla de calculos con una hoja protegida que hace muchisimo
tiempo no utilizo, el hecho es que ahora la necesito, pero habia protegido
las hojas y no recuerdo la clave. Alguien sabe como se puede recuperar o
tiene alguna utilidad para hacerlo...?

Muchas gracias...

gracias...


_______________________
Sebastián Izuibejeres
Montevideo - URUGUAY
WIN2000 / VFP9.0 - SP1


"Hernandez, Roberto" escribió en el mensaje
news:

Dado que la hoja es tuya, te paso un código que algún Master de este foro
posteó hace tiempo.

Sub PasswordBreaker()

'Rompe el password de proteccion de la hoja ACTIVA.
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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

"Sebastian Izuibejeres" escribió en el mensaje
news:u3$HIl$
> tengo una planilla de calculos con una hoja protegida que hace muchisimo
> tiempo no utilizo, el hecho es que ahora la necesito, pero habia

protegido

> las hojas y no recuerdo la clave. Alguien sabe como se puede recuperar o
> tiene alguna utilidad para hacerlo...?
>
> Muchas gracias...
>
>
>
>

Y que hay cuando la hoja no es tuya, sino de algun empleado que no te dejo
las claves??

Tambien es posible recuperarla con ese script??

Dado que la hoja es tuya, te paso un código que algún Master de este foro
posteó hace tiempo.

Sub PasswordBreaker()

'Rompe el password de proteccion de la hoja ACTIVA.
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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

"Sebastian Izuibejeres" escribió en el mensaje
news:u3$HIl$

tengo una planilla de calculos con una hoja protegida que hace muchisimo
tiempo no utilizo, el hecho es que ahora la necesito, pero habia
protegido
las hojas y no recuerdo la clave. Alguien sabe como se puede recuperar o
tiene alguna utilidad para hacerlo...?

Muchas gracias...

Hola Antonio,

"Antonio Galvan" wrote

Y que hay cuando la hoja no es tuya, sino de algun empleado que no te dejo
las claves??
Tambien es posible recuperarla con ese script??

Si senor! Tambien se puede. Y tambien se puede matar a martillazos o con pastillas para el sueno. Y que hay de la presuncion de la inocencia?

Saludos,
KL

Pues no entiendo lo que quieres decir, KL.

¿Me puedes explicar sin ironias?



"KL" escribió en el mensaje
news:OXyG%
Hola Antonio,

"Antonio Galvan" wrote

Y que hay cuando la hoja no es tuya, sino de algun empleado que no te dejo
las claves??
Tambien es posible recuperarla con ese script??

Si senor! Tambien se puede. Y tambien se puede matar a martillazos o con
pastillas para el sueno. Y que hay de la presuncion de la inocencia?

Saludos,
KL