recuperar clave de archivo excel 2003

Saludos:

Visite esta dirección

http://www.erlandsendata.no/english...nloadtools

Lea el siguiente titulo

Find lost passwords

Encontrara un complemento que le puede ayudar a resolver su problema.

Gabriel Raigosa


"mhiuguay" escribió en el mensaje
news:

Manejo el excel 2003 y olvide la contraseña, como hago para recuperarla
este
archivo esta enlazado con otros cuadros, y es mi trabajo de 6 meses, como
hago para abrir este archivo

Ojalá te sirva:

Para quitar password en protecciones a hojas...
=Sub RemoverPasswordEnHoja()
ActiveSheet.Protect "", , , , True
ActiveSheet.Range("a1").Copy ActiveSheet.Range("a1")
End Sub

Para quitar password en protecciones a libros...
=Sub RemoverPasswordEnLibro()
Dim Protecciones As Integer
If ActiveWorkbook.ProtectStructure = True Then Protecciones =
Protecciones
+ 1
If ActiveWorkbook.ProtectWindows = True Then Protecciones =
Protecciones +
2
Select Case Protecciones
Case 0: ActiveWorkbook.Protect "", False, False
Case 1: ActiveWorkbook.Protect "", True, False
Case 2: ActiveWorkbook.Protect "", False, True
Case 3: ActiveWorkbook.Protect "", True, True
End Select
ActiveWorkbook.Unprotect
End Sub


Salu2

Gabriel Raigosa escribió:

Saludos:

Visite esta dirección

http://www.erlandsendata.no/english...nloadtools

Lea el siguiente titulo

Find lost passwords

Encontrara un complemento que le puede ayudar a resolver su problema.

Hola chicos,

Si es lo que pienso yo (es el propio archivo que hay que abrir y no desproteger hojas o estructura del libro) entonces la solucion
de Juan no ayudaria y la de Gabriel tardaria un monton si la clave es mas o menos larga (p.ej. mas de 3 caracteres) o sofisticada.
Creo que haria falta algo como esto: http://www.elcomsoft.com/aopr.html

Saludos,
KL


"Juan Barbosa" wrote in message news:%23BgCCBu%

Ojalá te sirva:

Para quitar password en protecciones a hojas...
=> Sub RemoverPasswordEnHoja()
ActiveSheet.Protect "", , , , True
ActiveSheet.Range("a1").Copy ActiveSheet.Range("a1")
End Sub

Para quitar password en protecciones a libros...
=> Sub RemoverPasswordEnLibro()
Dim Protecciones As Integer
If ActiveWorkbook.ProtectStructure = True Then Protecciones = Protecciones
+ 1
If ActiveWorkbook.ProtectWindows = True Then Protecciones = Protecciones +
2
Select Case Protecciones
Case 0: ActiveWorkbook.Protect "", False, False
Case 1: ActiveWorkbook.Protect "", True, False
Case 2: ActiveWorkbook.Protect "", False, True
Case 3: ActiveWorkbook.Protect "", True, True
End Select
ActiveWorkbook.Unprotect
End Sub


Salu2

Gabriel Raigosa escribió:

Saludos:

Visite esta dirección

http://www.erlandsendata.no/english...nloadtools

Lea el siguiente titulo

Find lost passwords

Encontrara un complemento que le puede ayudar a resolver su problema.

hola Juan Barbosa, tomando la expresión de mhiuguay me podras decir donde
transcribo el codigo, si en un modulo? o en thisworkbook? y si me podras
decir como funciona... si no es mucha molestia...todos queremos aprender un
poquito mas, no se mucho de programación es por eso que pido tu ayuda...

Saludos:

Visite esta dirección

http://www.erlandsendata.no/english...nloadtools

Lea el siguiente titulo

Find lost passwords

Encontrara un complemento que le puede ayudar a resolver su problema.

El complemeto puede ayudarle a quitar contraseñas, puede ser demorado, si,
puede comprar programas para ello, puede bajar software demo, en la
direccion antes anotada puede encontar la ayuda.

Usted dice que olvido la contraseña, al menos recuerda si fue numerica, o
alfanumerica, mas o menos cuantos caracteres, es decir, si usted tiene idea,
ademas de que dice que es el trabajo de seis meses, pues al menos tiene idea
de lo que puede ayudarle el complemento que le indico, pero si no sabe si es
numerica, si no sabe si es alfabetica, si no sabe nada de nada de la
contaseña, puede ser por que definitivamente no sabe nada de nada y el
complemento no le servira.

Es decir, yo lo he usado y una vez olvide una contraseña, no de un archivo
que es mi diario vivir de seis meses, un archivo que use seis meses atras,
pero si recuero que fue solo letras en minusculas y numeros, y no era mayor
a seis caracteres.

El complemento me quito la contraseña en menos de 18 minutos.

Suerte con su contraseña olvidada.
Gabriel Raigosa


"mhiuguay" escribió en el mensaje
news:

Manejo el excel 2003 y olvide la contraseña, como hago para recuperarla
este
archivo esta enlazado con otros cuadros, y es mi trabajo de 6 meses, como
hago para abrir este archivo