Hace tiempo

Hola Marco.
Para quitar la protección de la hoja activa, ejecuta el siguiente código de
aguno de los masters de este foro:

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


Saludos

"Marco Aurelio Moncada Coello"
escribió en el mensaje
news:

Hace tiempo, genere unos libros para que me imprimieran la factura de mis
servicios.

Estas facturas obtinen tanto la descripcion del servicio, como su precio,
de
otro libro, la cual imprime varias vecews, por que la reimprimo en
facturas
impresas.

Para evitar que se cambiaran los datos, estas hojas se bloquearon, lo cual
al generar mas servicios, estos se actualizarian siempre y cuando esten
abiertos, y no esten protegidos.

Se puso una contraseña, para que supuestamente no se olvidara, llevo como
2
semanas, tratando de igualar la contraseña.

Hay forma de buscar la contraseña, sin tener que actualizar como 200
facturas que ya se han generado, y no tener que probar nuevamente, las
posiciones de los datos ya impresos en la forma de la factura.

No entendi, donde debo de ejecutar ese codigo.

"Hernandez, Roberto" wrote:

Hola Marco.
Para quitar la protección de la hoja activa, ejecuta el siguiente código de
aguno de los masters de este foro:

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


Saludos

"Marco Aurelio Moncada Coello"
escribió en el mensaje
news:
> Hace tiempo, genere unos libros para que me imprimieran la factura de mis
> servicios.
>
> Estas facturas obtinen tanto la descripcion del servicio, como su precio,
> de
> otro libro, la cual imprime varias vecews, por que la reimprimo en
> facturas
> impresas.
>
> Para evitar que se cambiaran los datos, estas hojas se bloquearon, lo cual
> al generar mas servicios, estos se actualizarian siempre y cuando esten
> abiertos, y no esten protegidos.
>
> Se puso una contraseña, para que supuestamente no se olvidara, llevo como
> 2
> semanas, tratando de igualar la contraseña.
>
> Hay forma de buscar la contraseña, sin tener que actualizar como 200
> facturas que ya se han generado, y no tener que probar nuevamente, las
> posiciones de los datos ya impresos en la forma de la factura.

Marco:
Tienes que pegar este código en el editor de VBA de tu Excel.
Para ello dale botón derecho a la pestaña de la hoja que necesitas
desproteger y selecciona la opción 'Ver código'.
Copia y pega el codigo ahi y presiona la tecla F5 [o un botón tipo 'Play'
que está en la barra de herramientas].
Esto ejecutará el código y tardara algunos segundos [dependiendo de tu PC] y
quitará la protección de la hoja.
[estamos hablando de una hoja a la que protegiste con password]


'******Copia desde la siguiente línea**********************************

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

'******Hasta la linea anterior****************