Bienvenid@ a Urabaenlinea.com

¿Deseas interactuar con más de 300.000 usuarios?

¡Regístrate ahora!

Codigo para desbloquear Hojas de Excel

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

  1. ALBERTOMARIOPEREZ

    ALBERTOMARIOPEREZ Bananero activo

    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.445
    Me Gusta recibidos:
    83
    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:
    342
    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.947
    Respuesta: Codigo para desbloquear Hojas de Excel

    probare a ver q pasa
     
    #6
  7. Osnaid.

    Osnaid. Bananero amañado Moderador

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

    Bueen aporte probare tambien a ver que pasa
     
    #7

Compartir esta página