Descubrir passwords,

Dale unos rabitos de pasa, a ver si hay suerte...

Alguien le puso una password a una planilla y ahora no

se acuerda, como la

descubro?

Copio y pego codigo publicado en este foro.

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


"Henrys Deliuk" escribió en el mensaje
news:

Alguien le puso una password a una planilla y ahora no se acuerda, como la
descubro?


gracias