Desproteger hoja excel
?Download as TXT, PDF?
1 like?272 views
This document provides instructions for creating a VBA module in Excel that will brute force decrypt a password protected spreadsheet. It describes inserting a module, copying code to iterate through all character combinations to unlock the sheet, then calling the subroutine to display the password. The code generates all possible 12 character passwords made from numbers and letters to uncover the password without knowing it.
Desproteger hoja excel
- 1. 1ABRIR EXEL EJM: Libro1 PRECIONE ALT+F11 = TE ABRE LA VENTANA DE VISUAL CLICK EN INSERTAR+MODULO=SE CREARA UNA CARPETA QUE CONTIENE Modulo1 SELECCIONA EL MODULO1 LUEGO COPIA ESTE CODIGO QUE ESTA ABAJO Sub jd() 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 "?JD TE DA TU CONTRASE?A!" & vbCr & "La contrase?a es:" & vbCr & Contrase?a Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub PEGAR EN EL MODULO1 LUEGO VE EN ARCHIVO+EXPORTAR, PONERLE UN NOMBRE Y GUARDAR EJEMPLO EN ESCRITORIO.... LO QUE ACABAMOS DE CREAR SE LLAMA MODULO LUEGO ABRI TU HOJA PROTEGIDA+ PRSS ALR+F11 +IMPORTAR+SELECCIONAR TU MODULO QUE CREASTE+CERRAR PARA QUEDAR CON LA HOJA PROTEGIDA+PRESS AL+F8 SELECCIONAR jd +EJECUTAR Y LISTO!! JD TE DA TU CONTRASE?A!! JAJA