hace 13 años
[quote="manupech"]Prueba esto
Abre el archivo Excel que quieres desbloquear
Pulsa ALT + F8, se te abrirá una ventana; en el nombre del macro pones un nombre a tu elección, y pulsa el botón Crear.
Se te abrirá una nueva ventana, allí sustituyes y borras todo lo que esta escrito y lo reemplazas por el siguiente 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 "La contraseña 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
Pulsa el botón Ejecutar desde el menú o desde la barra de herramientas.
Verás un mensaje que dice: La contraseña nueva[/quote]
Primer error: el archivo no se puede abrir, está protegido con contraseña!
Segundo error: la macro indicada es para desproteger una hoja!
Tercer error: estás copiando "cualquier cosa", por lo tanto, no tienes la menor idea. En estos casos, te recomiendo que no contestes, de lo contrario te darías cuenta que la macro sólo sirve para contraseñas de 12 caracteres exactos de longitud, de los cuales los 11 primeros pueden ser letras "A" o "B" (sólo ellas, ninguna otra ni ningún número ni minúsculas) y que sólo la última letra sí contempla "casi" todas las variaciones posibles.
No copies y pegues sin entender lo que copias y pegas.
Saludos!
¿Realmente quieres cerrar esta reparación?
Sí
No
¿Realmente quieres reabrir esta reparación?
Sí
No
¿Realmente quieres borrar este post?
Sí
No