Foros del Web » Programas, Hardware y Redes » Ofimática »

Desbloquear un libro de excel

Estas en el tema de Desbloquear un libro de excel en el foro de Ofimática en Foros del Web. segun lo que he visto en este foro me pueden ayudar con algun programa o solucion para poder abrir un archivo excel que esta con ...
  #1 (permalink)  
Antiguo 30/10/2006, 18:02
 
Fecha de Ingreso: octubre-2006
Mensajes: 1
Antigüedad: 8 años
Puntos: 0
De acuerdo Desbloquear un libro de excel

segun lo que he visto en este foro me pueden ayudar con algun programa o solucion para poder abrir un archivo excel que esta con contraseña, porque necesito realizar un trabajo y se me olvido la contraseña, es para abrir el libro . hay una solucion para poder modificar las hojas de excel esta muy buena.


ojala puedan ayudarme.
  #2 (permalink)  
Antiguo 31/10/2006, 08:00
Avatar de Linterns
Colaborador
 
Fecha de Ingreso: diciembre-2001
Mensajes: 2.802
Antigüedad: 12 años, 11 meses
Puntos: 11
Abre el archivo de Excel que tienes bloqueado y posicionate en la Hoja que tiene contraseña; ahora 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.
__________________
Bien se puede recibir una puñalada sin adulación,
pero rara vez se recibe una adulación sin puñalada
** ***
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 4 personas (incluyéndote)




La zona horaria es GMT -6. Ahora son las 06:09.
SEO by vBSEO 3.3.2