Codigo para desbloquear Hojas de Excel

Tema en 'Programación' iniciado por ALBERTOMARIOPEREZ, 16 de Febrero de 2010.

  1. ALBERTOMARIOPEREZ

    ALBERTOMARIOPEREZ Bananero contento

    Registrado:
    8 de Febrero de 2010
    Mensajes:
    11
    Me Gusta recibidos:
    13
    Algunas veces nos topamos con una Hoja que queremos editar o modificar, pero esta protegida con una contraseña.

    Este codigo nos permite desbloquear la hoja y modificarla a nuestro antojo.

    Los pasos son los siguientes:

    1. Abra el Libro excel donde está la Hoja bloqueada.

    2. Teclee Alt + F11, esto abrirá el editor de Visual Basic

    3. Haga Click en insertar... Modulo

    4. Copie el siguiente codigo, y peguelo en la ventana que acaba de abrir (Modulo). El codigo es el siguiente:

    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 "¡Enorabuena!" & vbCr & "La hoja ha sido desbloqueada"
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub


    5. Cierre el editor de Visual Basic.

    6. Estando en la pagina bloqueada, presione Alt + F8, esto mostrara las macros presentes en el libro de trabajo.

    7. Haga click en la que dice Descubrir Contraseña y luego en ejecutar.

    8. Espere unos segundos (o 2 minutos dependiendo de la clave)

    9. Aparece un mensaje donde indica que la pagina ha sido desbloqueada.


    Espero les sea de utilidad esta macro.
     
    #1
    A Osnaid., Munky™ y antidoto les gusta esto.
  2. kasinadie

    kasinadie Bananero contento

    Registrado:
    15 de Febrero de 2010
    Mensajes:
    85
    Me Gusta recibidos:
    18
    Respuesta: Codigo para desbloquear Hojas de Excel

    Buen aporte lo probe y funcionó 100%
     
    #2
  3. A.V.P

    A.V.P Bananero reconocido

    Registrado:
    4 de Junio de 2009
    Mensajes:
    3.451
    Me Gusta recibidos:
    84
    Respuesta: Codigo para desbloquear Hojas de Excel

    Si exelente conocer estas cosas
     
    #3
  4. multinet

    multinet Bananero nuevo

    Registrado:
    8 de Septiembre de 2010
    Mensajes:
    1
    Me Gusta recibidos:
    0
    Respuesta: Codigo para desbloquear Hojas de Excel

    es bueno, ya lo probe, peso funciona si solo esta bloqueada la o las hojas de exel y que pasa si esta bloquesda todo el libro, es decir que cuando mandas a abrir el documento exel lo primero que te pide es la clave de acceso, ahi no funciona
     
    #4
  5. Munky™

    Munky™ Bananero reconocido

    Registrado:
    27 de Mayo de 2007
    Mensajes:
    9.708
    Me Gusta recibidos:
    348
    Respuesta: Codigo para desbloquear Hojas de Excel

    excelente!! :) me funciono!
     
    #5
  6. Juan Pachanga

    Juan Pachanga Bananero reconocido

    Registrado:
    5 de Febrero de 2008
    Mensajes:
    7
    Me Gusta recibidos:
    3.979
    Respuesta: Codigo para desbloquear Hojas de Excel

    probare a ver q pasa
     
    #6
  7. Osnaid.

    Osnaid. Bananero amañado

    Registrado:
    6 de Agosto de 2008
    Mensajes:
    4.881
    Me Gusta recibidos:
    1.377
    Respuesta: Codigo para desbloquear Hojas de Excel

    Bueen aporte probare tambien a ver que pasa
     
    #7

Compartir esta página