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.