Excel - Desproteger Caldas

   
Vista:

Desproteger Caldas

Publicado por Brendan (7 intervenciones) el 02/12/2007 07:59:30
Que tal...

Disculpen alguien me puede ayudar diciendome si se puede o existe la forma de desbloquear las celdas de un archivo sin tener la contraseña???...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Desproteger Caldas

Publicado por JONATHAN PINALES (10 intervenciones) el 03/12/2007 00:17:20
Has lo siguiente:

Abre el Archivo, pulsa Alt + F11, te abrira el editor de Visual Basic
Vete al Menu Insertar y selecciona modulo
Copia lo siguiente

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 "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

Cierra el editor de visual basic
Pulsa Alt + f8
corre la macro

sin importar cual sea el password que tuviera, ya no existe

Saludos

Si puedes echame la mano con mi preguna PONER ENTER

Atte. Jonathan

Usa el siguiente codigo:
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar