Password perdida

Mediante Software, existen aplicaciones en la web para ello, entre las que
conozco está Advanced Password Recovery para Excel. Mediante código VBA te
pego uno que tomé desde estos foros y lamentablemente desconozco su autor,
por lo que le pido mil disculpas por no nombrarlo.
La primera parte es para quitar password en hojas y la segunda para quitar
password en libros. Yo no lo he usado nunca, pero me dijeron que funcionaba
bien.
copio y pego

Para quitar password en protecciones a hojas de Excel:

Sub RemoverPasswordHoja()
ActiveSheet.Protect "",,,,True
ActiveSheet.Range("a1").Copy ActiveSheet.Range("a1")
End Sub

(Donde pone Hoja, sustituir con el nombre de la Hoja que quieras
desproteger)
-

Para quitar password en protecciones a Libros
Sub RemoverPasswordLibro()
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
Case1: ActiveWorkbook.Protect "",True,False
Case 2: ActiveWorkbook.Protect "",False,True
Case 3: ActiveWorkbook.Protect "",True,True
End Select
ActiveWorkbook.Unprotect
End Sub

(Donde pone Libro, sustituir con el nombre del Libro que quieras
desproteger)

-

Andrés Farias.cl


"Lord Rogers" escribió en el mensaje
news:

Hola amigos del foro, he aquí mi problema y/o consulta

Tengo un documento excel con clave, pues bien, esa clave se me olvido (je
je) y no sé cómo obtenerla, ¿alguien sabe cómo hacerlo?

Lord Rogers
Desde el último lugar del mundo...