Olvide la contraseña

"rofog" escribió en el mensaje
news:

Tengo un libro protegido con una contraseña, pero la olvide y ahora no lo

puedo accesar, no se si hay alguma manera de averiguar cual era esa
contraseña en excell.

Bueno...

Alguna vez lei en este foro este mismo problema y me copie un codigo en VBA
que elimina la proteccion tanto en las hojas como en los libros,
lamentablemente no tengo el nombre del autor de este codigo (así que
agradecele al el) pero creo que le hubiera gustado compartirlo.

Si estas relacionado con VBA copia estos procedimientos y solo ejecutalos,
en caso contrario no dudes en preguntarmelo y lo hacemos paso por paso ok.


'Codigo Fuente para eliminar hojas y libros protegidos

'Remover proteccion en Hojas

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

'Remover proteccion en 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
Case 1: ActiveWorkbook.Protect "", True, False
Case 2: ActiveWorkbook.Protect "", False, True
Case 3: ActiveWorkbook.Protect "", True, True
End Select
ActiveWorkbook.Unprotect
End Sub