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

Hola daniel yo tengo un problema similar,
tengo bloqueada unas hojas el cual no recuerdo la contraseña y necisito
hacer unas modificaciones,.

dime como hago para aplicar el macro que pusiste, Gracias


"Daniel Sandoval" escribió en el mensaje
news:

"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