Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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+IMPORTAR, 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 OJA PROTEGINDA+PRESS AL+F8 SELECCIONAR jd +EJECUTAR Y LISTO!!
- ======================================
- Otro caso sería Prueba con este programa: Office Password Recovery Pro
- http://www.datarecovery-faq.org/password-recovery/
- podrá recuperar todas las contraseñas olvidadas o perdidas en la gama de productos Microsoft Office (Word, Excel, PowerPoint y muchos mas...)
- =======================================
- Click con el ratón en el nombre de la hoja que se quiere desproteger.
- Click con el ratón en Ver código.
- Copiar y pegar el siguiente código macro VBA.
- Public Sub decod()
- On Error Resume Next: c = Space(10)
- For a = 0 To 1: Do While p < 10: p = p + 1: Mid(c, p) = a: a = 0: Loop
- For j = 32 To 126: Unprotect c & a & Chr(j)
- If Not ProtectContents Then MsgBox "Clave » " & c & a & Chr(j): End
- Next: Do While a = 1: a = Mid(c, p, 1): p = p - 1: Loop: Next
- End Sub
- Regresar a la hoja Excel que se desea desproteger.
- Ir a Herramientas, Macro, Macros, Ejecutar.
- Y ¡¡voila!! aparece la clave alternativa y la hoja desprotegida.
- ========================================
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement