Desbloquear archivo excel

[pmuruaga]

Esto es medio hacking pero como puedo desbloquear un archivo excel, es solo para ver las formulas de algunos calculos que necesito. Thanks.

[Linterns]

Espero que no lo utilices inadecuadamente.

Presiona ALT + F8 para que te da la pantallita de crear una macro y escribe un nombre determinado y presiona la tecla CREAR

esto te llevara al editor de VB y sutituye lo tecleado por lo siguiente

Código:

Sub breakit()

   Dim i As Integer, j As Integer, k As Integer
   Dim l As Integer, m As Integer, n As Integer
   On Error Resume Next
     For i = 65 To 66
      For j = 65 To 66
       For k = 65 To 66
        For l = 65 To 66
         For m = 65 To 66
          For i1 = 65 To 66
           For i2 = 65 To 66
            For i3 = 65 To 66
             For i4 = 65 To 66
              For i5 = 65 To 66
               For i6 = 65 To 66
                For n = 32 To 126
   ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ 
      Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
      Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
   If ActiveSheet.ProtectContents = False Then
      MsgBox "One usable password is " & Chr(i) & Chr(j) & _
         Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
         & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
      Exit Sub
   End If
               Next
              Next
             Next
            Next
           Next
          Next
         Next
        Next
       Next
      Next
     Next
    Next

End Sub

Guarda y luego ejecuta dicha macro.... espera unos cuantos minutos y te mostrara una advertencia con la clave Interna de Excel y te desbloqueara la hoja de la cual deseas ver las formulas.

NOTA: la clave que te muestra no es la que tecleo el usuario sino la de respaldo que ocupa internamente elñ codigo de Excel en dicha hoja.

[Ephs]

Esta excelente =)

[pmuruaga]

La verdad, espectacular. Se tomo su tiempo, pero de lujo.
Muchas gracias.

[andresbs]

Iniciado por Linterns

Espero que no lo utilices inadecuadamente.

Presiona ALT + F8 para que te da la pantallita de crear una macro y escribe un nombre determinado y presiona la tecla CREAR

esto te llevara al editor de VB y sutituye lo tecleado por lo siguiente

Código:

Sub breakit()

   Dim i As Integer, j As Integer, k As Integer
   Dim l As Integer, m As Integer, n As Integer
   On Error Resume Next
     For i = 65 To 66
      For j = 65 To 66
       For k = 65 To 66
        For l = 65 To 66
         For m = 65 To 66
          For i1 = 65 To 66
           For i2 = 65 To 66
            For i3 = 65 To 66
             For i4 = 65 To 66
              For i5 = 65 To 66
               For i6 = 65 To 66
                For n = 32 To 126
   ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ 
      Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
      Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
   If ActiveSheet.ProtectContents = False Then
      MsgBox "One usable password is " & Chr(i) & Chr(j) & _
         Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
         & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
      Exit Sub
   End If
               Next
              Next
             Next
            Next
           Next
          Next
         Next
        Next
       Next
      Next
     Next
    Next

End Sub

Guarda y luego ejecuta dicha macro.... espera unos cuantos minutos y te mostrara una advertencia con la clave Interna de Excel y te desbloqueara la hoja de la cual deseas ver las formulas.

NOTA: la clave que te muestra no es la que tecleo el usuario sino la de respaldo que ocupa internamente elñ codigo de Excel en dicha hoja.

viejo muchas gracias por su ayuda no se imagina como me ayudo en mi proyecto saludos

[caesar.l]

Hola, es posible desbloquear los modulos de un archivo de excel? o un VBAProjetc de una forma parecida a desbloquear las hojas?

[samuel chaparro]

Amigos, requiero de esta inmensa ayuda.

Es desbloquear el código de las macros de excel cuando tengan un password.

Gracias un monton,
Samuel

[kiro]

utilizo lo que me dicen para desbloquar un trabajo de la u que se me olvidaron las contraseñas pero me dice que el nivel de seguridad configurado es muy alto que puedo hacer en ese caso

[Linterns]

abre tu archivo y vete a la parte superior "herramientas" => "macros" => seguridad.

Ahí pones "bajo" y ya puedes realizar el proceso correspondiente

[Linterns]

si tienes office 2007 La configuración de seguridad de macros se puede cambiar en el Centro de confianza (botón de Microsoft Office , botón Opciones de Excel, categoría Centro de confianza, botón Configuración del Centro de confianza, categoría Configuración de macros. O bien, en la ficha Programador, en el grupo Código, botón Seguridad de macros). Sin embargo, si trabaja en una organización, puede que el administrador del sistema haya cambiado la configuración predeterminada e impida que los usuarios modifiquen la configuración.

[Mecho]

Oye esto esta excelente!!!!!!!! muchas gracias....

[trigger_bengali]

Gracias, me sirvió un monton tu tip. Esta buenisimo felicitaciones......

[angra84]

hey men gracias por este excelente aporte, me has sacado de un gran problema, gracias nuevamente, gracias

[rodopin]

Excelente truco... pero si al momento de querer crear la macro te pide contraseña aun teniendo el nivel de seguridad bajo ... aqui como se le pudiera hacer???... Agradezco su ayuda

[David]

Iniciado por rodopin

Excelente truco... pero si al momento de querer crear la macro te pide contraseña aun teniendo el nivel de seguridad bajo ... aqui como se le pudiera hacer???... Agradezco su ayuda

Puedes crear la macro en otro archivo excel y agregar el siguiente código:

Código:

Dim xlsBook As Workbook
Dim xlsSheet As Worksheet
Set xlsBook = Workbooks.Open("C:\archivo.xls")
Set xlsSheet = xlsBook.Worksheets("Hoja a desbloquear")

Y sustituye Activesheet por xlsSheet.

Espero que te sirva. Saludos

[tuyos_siempre]

Magnifico, lo que buscaba!

Saludos!

[JAVIER_MENDEZ]

Buenas Tardes, En El Momento Que Trato De Abrir El Archivo Me Muestra La Pantalla Para Introducir La Clave. Cree Otro Libro Y Cree La Macro Que Comentas Pero No Me Funciona. Podrias Indicarme Como Hacerlo.... Saludos Y Muchas Gracias.

[David]

Iniciado por JAVIER_MENDEZ

Buenas Tardes, En El Momento Que Trato De Abrir El Archivo Me Muestra La Pantalla Para Introducir La Clave. Cree Otro Libro Y Cree La Macro Que Comentas Pero No Me Funciona. Podrias Indicarme Como Hacerlo.... Saludos Y Muchas Gracias.

¿Has intentado de la manera que mencioné?

[JAVIER_MENDEZ]

si, tengo exel 2007, cree la macro, pero lo primero que sale es solicitandome la clave.

[vitalini]

Estuvo excelente ese tip muchas gracias!!

[nickita74]

Hola David, yo tengo el mismo problema que Javier, tengo un archivo (no una hoja) de excel 2007 que esta con clave y no la recuerdo, intente con la macro que pones pero cuando intento abrir el archivo para que este activo me pide la clave y ahi queda
Ojala haya algo que podamos hacer
Gracias de antemano

[peposo]

Hola no soy un gran informatico, pero hicimos un trabajo en excel con office 2007, la cosa es que le pusimos clave para no poder modificar. ahora lo necesitamos modificar y no nos acordamos ninguno la clave, se que era larga.
intentamos con programillas pero nos pide que conpre mos la licencia, haber si hay gente que nos pueda ayudar.
Gracias

[elion]

Iniciado por Linterns

si tienes office 2007 La configuración de seguridad de macros se puede cambiar en el Centro de confianza (botón de Microsoft Office , botón Opciones de Excel, categoría Centro de confianza, botón Configuración del Centro de confianza, categoría Configuración de macros. O bien, en la ficha Programador, en el grupo Código, botón Seguridad de macros). Sin embargo, si trabaja en una organización, puede que el administrador del sistema haya cambiado la configuración predeterminada e impida que los usuarios modifiquen la configuración.

q tal mire lo que pasa es que se me bloqueo una hoja de excel y no me deja hacer nada los macros no funcionan y el boton donde se desbloquean las hojas esta bloqueado ¿me puede ayudar?

[YARATJ]

tengo una pregunta si realizo este precedimiento se pueden dar cuenta.? o como puedo hacer que regresen a como estaba?

[YARATJ]

me podrias ayudar tengo un problema alparecer tengo bloqueado los macros o algo asi, pude crear la macro pero despues ya no me deja crear.. que puedo hacer? te dejo mi correo [email protected]

[ppmmaa]

Estoy intentado desbloquear un doc. excel pero ... Cuando Guardo y luego ejecuto el marco( tal y como has dicho) se me abre una ventanilla se aviso de sguridad de excel y me da 2 opciones: 1. habilitar macro o 2. deshabilitar macros. que tengo que hacer?? graciiias!

[marcossoncco]

Iniciado por David

Puedes crear la macro en otro archivo excel y agregar el siguiente código:

Código:

Dim xlsBook As Workbook
Dim xlsSheet As Worksheet
Set xlsBook = Workbooks.Open("C:\archivo.xls")
Set xlsSheet = xlsBook.Worksheets("Hoja a desbloquear")

Y sustituye Activesheet por xlsSheet.

Espero que te sirva. Saludos

Hola David, a mi me sale todo bien pero tengo un problema pues en el archivo que tengo no aparecen los nombres de las hojas a desactivar con el código adicional.
Si tuvieras alguna solución al respecto te lo agradeceré.
Saludos.

[Rober_e]

Estaba buscando desproteger un Libro de Excel, como lo que encontré no me funcionaba porque ponía que la contraseña era incorrecta, pongo aquí esto que sí que me funciona:
Se hace mediante la Macro "DesprotegerLibro" que tenemos que crear a continuación, siguiendo estas instrucciones:

1. Abre normalmente el archivo Excel que quieres desbloquear o desproteger.
2. Pulsa ALT + F8 y se te abrirá una ventana; en el nombre del macro pones “DesprotegerLibro” u otro nombre (sin espacios) a tu elección, y pulsa el botón Crear.
3. Se te abrirá una nueva ventana de VisualBasic, allí sustituyes y borras todo lo que esta escrito y lo reemplazas por el siguiente código:

Sub DesprotegerLibro()
If MsgBox("Realmente desea desproteger el libro actual?", vbCritical + vbYesNo + vbDefaultButton2, "DesprotegerLibro") = vbYes Then
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer

On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126

ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveWorkbook.ProtectStructure = False And ActiveWorkbook.ProtectWindows = False Then
'MsgBox "La clave es: " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox "El libro está ahora desprotegido", vbInformation + vbOKOnly, "DesprotegerLibro"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End If
End Sub

4. Pulsa el botón Ejecutar desde el menú de la barra de herramientas o desde la barra de herramientas.

5. Después de un rato, si todo salio bien, veras un mensaje que dice: "Realmente desea desproteger el libro actual?"; pulsar "Si"; el siguiente mensaje es:
"El libro está ahora desprotegido"; pulsamos en "Aceptar" y listo.
¡ Funciona !