- Mensajes: 3500
- Karma: 29
- Gracias recibidas: 146
Por favor, Identificarse o Crear cuenta para unirse a la conversación.
Por favor, Identificarse o Crear cuenta para unirse a la conversación.
Por favor, Identificarse o Crear cuenta para unirse a la conversación.
Por favor, Identificarse o Crear cuenta para unirse a la conversación.
Por favor, Identificarse o Crear cuenta para unirse a la conversación.
Saludos...!
abre el libro de excel que deseas desproteger y entonces presionas alt+f11 para que te abra el editor de visual basic, del lado izquierdo vienen las hojas de excel que tiene ese libro. en este punto no se despliega nada se ve una pagina en negro , selecciona la que necesitas y le das un clic derecho al mouse y seleccionas la opcion "ver codigo" entonces pegas 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
despues cierras el editor visual basic, y en la hoja de excel oprimes alt+f8 y ejecutas la macro que se forma la cual se termina con"...breakit", esperas y listo, tendas la hoja desprotegida...
o bien puedes esperar a que alguien te comparta el archivo para desproteger las hojas...
Suerte y nos dices como te fue...!
Por favor, Identificarse o Crear cuenta para unirse a la conversación.
Hay 504 invitados y ningún miembro en línea