recuperar clave de archivo excel 2003
mhiuguay
archivo esta enlazado con otros cuadros, y es mi trabajo de 6 meses, como
hago para abrir este archivo
Gabriel Raigosa
Visite esta dirección
http://www.erlandsendata.no/english/index.php?d=endownloadtools
Lea el siguiente titulo
Find lost passwords
Encontrara un complemento que le puede ayudar a resolver su problema.
--
Gabriel Raigosa
Gabriel...@hot.mail.com
"mhiuguay" <mhiu...@discussions.microsoft.com> escribió en el mensaje
news:613643D0-E0FE-4D0E...@microsoft.com...
Juan Barbosa
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ó:
KL
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" <juli...@yahoo.com.mx> wrote in message news:%23BgCCBu%23FHA...@TK2MSFTNGP10.phx.gbl...
Gabriel Raigosa
Visite esta dirección
http://www.erlandsendata.no/english/index.php?d=endownloadtools
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
Gabriel...@hot.mail.com
"mhiuguay" <mhiu...@discussions.microsoft.com> escribió en el mensaje
news:613643D0-E0FE-4D0E...@microsoft.com...
alberto corrales
excel...
Juan Barbosa
tarde...
Esos códigos son para cuando puedes abrir la hoja, pero tienes clave de
protección de la hoja o del libro.
Tendrías que abrir la hoja en cuestión y añadir un módulo en una macro,
pegar el citado código y ejecutarlo.
Pero si el problema es que no puedes abrir la hoja, sigue las
indicaciones de los otros compañeros del foro. Te servirán.
Salu2
alberto corrales escribió:
>
> 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...
Pablo Espinosa
esfuerzo abrir mi archivo protegido con una clave que olvidé, ahora estoy
trabajando en dicho archivo sin problema alguno, una vez màs agradezco
todas las ayudas.
atte.,
Pablo Espinosa Guerra
Stgo de Chile
Que Dios Los Bendiga
