Desbloquer execel
Descargar como DOCX, PDF0 recomendaciones99 vistas
El documento presenta un código en Visual Basic para Aplicaciones (VBA) que tiene como objetivo descubrir la contraseña de una hoja protegida en Excel mediante la generación sistemática de todas las posibles combinaciones de caracteres alfabéticos y numéricos. El código genera todas las posibles contraseñas de 12 caracteres y las prueba sucesivamente hasta desbloquear la hoja protegida, mostrando un mensaje cuando tiene éxito.
![desbloquer execel
https://www.youtube.com/watch?v=Aky4Ue8cMnE Luiscastro 4.33 min.
https://www.youtube.com/watch?v=Aky4Ue8cMnE
https://youtu.be/Aky4Ue8cMnE
Sub Descubrir_contraseña()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim a1 As Integer, a2 As Integer, a3 As Integer
Dim a4 As Integer, a5 As Integer, a6 As Integer
On Error Resume Next
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _
& Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)
ActiveSheet.Unprotect Contraseña
If ActiveSheet.ProtectContents = False Then
MsgBox "¡Tuvimos éxito!" & vbCr & "La HOJA pudo ser desprotegida." & vbCr & "Ahora como agradecimiento puedes
colaborar haciendo una donación al FORO [excel.foroactivo.com], yendo a CONTRIBUCION (abajo)."
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub](https://image.slidesharecdn.com/desbloquerexecel-150816040822-lva1-app6891/85/Desbloquer-execel-1-320.jpg)
Desbloquer execel
- 1. desbloquer execel https://www.youtube.com/watch?v=Aky4Ue8cMnE Luiscastro 4.33 min. https://www.youtube.com/watch?v=Aky4Ue8cMnE https://youtu.be/Aky4Ue8cMnE Sub Descubrir_contraseña() Dim a As Integer, b As Integer, c As Integer Dim d As Integer, e As Integer, f As Integer Dim a1 As Integer, a2 As Integer, a3 As Integer Dim a4 As Integer, a5 As Integer, a6 As Integer On Error Resume Next For a = 65 To 66: For b = 65 To 66: For c = 65 To 66 For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66 For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66 For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126 Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _ & Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f) ActiveSheet.Unprotect Contraseña If ActiveSheet.ProtectContents = False Then MsgBox "¡Tuvimos éxito!" & vbCr & "La HOJA pudo ser desprotegida." & vbCr & "Ahora como agradecimiento puedes colaborar haciendo una donación al FORO [excel.foroactivo.com], yendo a CONTRIBUCION (abajo)." Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub