Desproteger hoja de Excel con contraseña

Anuncios

Para desbloquear y desproteger una hoja de cálculo de Excel si nos olvidamos la contraseña, lo vamos a hacer mediante una rutina que te vamos a proveer a continuación, sigue estas instrucciones:


1. Abre normalmente el archivo Excel que quieres desbloquear o desproteger.

2. Pulsa ALT + F8 y se te abrirá una ventana

3. En la barra de herramientas damos clic sobre la hoja que tenga la contraseña en este caso la hoja 1
Desproteger hoja de Excel con contraseña

4. Nos aparese esta venta y de paso certifico

contraseña

5. copiar y pegar el siguiente codigo

CODIGO
______________________
Sub breakit()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "La contraseña es: " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub

FIN DE CODIGO

6. presionar F5 y esperar....

en ocaciones es un proseso tardado hasta el grado de congelar la ventana pero no se preocupen todo esta bien

7. Si todo salio bien nos saldra: (AAAAAAAA = es la contraseña del ejemplo )

excel 2007

Nota: Lo hemos probado en Excel 97, Excel 2000, Excel 2003 funcionando a la perfección.

deproteger

Anuncios

32 comentarios - Desproteger hoja de Excel con contraseña

Jfaund +1
Buenisimo.., y como desbloqueas un libro? es decir, quiero eliminar una hoja u ocultarla y el libro esta protegido.
jorge-aragon
a mi aparece la contraseña AAAAA... pero igualmente no lo abre... quein me ayuda?
Lestudent
Muy bien explicado, facil de entender y efectivamente funciona. Sos fenomenal
tdco
genial viejo
nukem64
muy bueno, funciona en el 2013
Matrosss
Sos lo más... en Excel 2010 de lujo... Abrazo
More71
Perfecto !!! funcionando en 2010 ....
ZOROWI
PERFECTO FUNCIONO CON EXCEL 2013.
ALM1960
Funciono Muy Bien, Solo tuve que bajar el nivel de Seguridad de los Macros y Listo. Gracias
Mingonv
excelente bro sirve también para el 2013
Sipiona
Perfecto en 2013...
Gracias...
Ariel85
Genial! Me sirvio! +10
MegaGrosero
TE PASAISSSS!!! JAJAJA MUY BUENOOOO. +10
coio73
Muy bueno !!! Gracias
RAFER
funciono perfecto te dejo +10
jade0007
excelente, funciona en excel 2013. te dejo +10
acprotek
Todo bien, muchas gracias
fherduz +1
Awesome... jajaja, funciono en Excel 2011 para Mac! Gracias amigo!
Fher84
Que teclas presionaste en lugar de alt f11?