El post que buscas se encuentra eliminado, pero este también te puede interesar

Desproteger o Desbloquear Libro EXCEL

Desbloquear y despoteger un archivo de Excel

Desbloquear y despoteger un archivo de Excel

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; en el nombre del macro pones “DESBLOQ” o un nombre a tu elección, y pulsa el botón Crear.

3. Se te abrirá una nueva ventana, allí sustituyes y borras todo lo que esta escrito y lo reemplazas por el siguiente código:

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 "Archivo Desprotegido " & 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

26 comentarios - Desproteger o Desbloquear Libro EXCEL

@coderdeath +1
tengo el codigo fuente para desproteger o mostrar Archivos XLS... te lo puedo pasar para anexar a tus codigos fuente....
@nallochis
Me sirvio!! mil gracias!
@matrodri
Genial muchas gracias!!!
@SteelManBlue
Excelente.. me sirvio n... andaba buscando mi post con esto.. pero no lo encontre... Salu2
@mbellso
Gracias!!!! Sirvió con XL 2010!!!
@diazpluisd
Excelente aporte, ne saco de apuro gracias.
@Mixxer +1
todo bien, pero solo sirve para desproteger celdas u hojas de un libro, no el libro completo. Yo preciso abrir un archivo excel que apenas lo abris te pide contrasena, sino no te permite abrirlo. Tenes alguna forma de hacer lo que necesito? gracias!
@wiuribe +2
Amigo el titulo de tu post "Desproteger o Desbloquear Libro EXCEL" esta MAL debería ser "desproteger Hojas de Excel" ya que eso es lo unico que hace, desprotege las hojas no el libro como tal.
ten en cuenta el titulo de tus post para un futuro
@Antons7 +1
INTELIGENCIA COLECTIVA........ MUCHAS GRACIAS... ME SIRVIÓ....
@CyborgGhost
Exacto solo sirve para hojas no libros !!!
@apppapi
gracias me salvaste
@Digital_Junior
FUNCIONA PERFECTO, AUNQUE LE FALTO EXPLICAR, QUE LUEGO DE CREADO HAY QUE EJECUTAR EL MACRO.
@alanelchirilo
Graacias, me re salvaste funciono para 2014
@_Teiwaz_
Gracias!!, buenisimo aporte, me re sirvio!
@KNCER
eres un buen amigo gracias¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
☺☻
@diosmidas
CORRIJO

Para "desproteger un LIBRO":

* ALT + F8
* Se crea una macro con cualquier nombre
* En el cuadro de codigo se copia lo siguiente:

Sub DesprotegerLibro()
If MsgBox("Realmente desea desproteger el libro actual?", _
vbCritical + vbYesNo + vbDefaultButton2, "DesprotegerLibro" = vbYes Then
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
ActiveWorkbook.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 ActiveWorkbook.ProtectStructure = False And ActiveWorkbook.ProtectWindows = False Then
MsgBox "El libro está ahora desprotegido", vbInformation + vbOKOnly, "DesprotegerLibro"
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End If
End Sub

* Se cierra la ventana y se vuelve al archivo EXCEL
* por ultimo, ejecutas la macro creada.

Lo encontre por internet, asi que no me atribuyo el credito de su funcionamiento. Lo subo aca por si hay alguien que como yo lo estaba buscando y cayeron en este post pensando encontrar la respuesta a "como DESPROTEGER UN LIBRO (no una hoja)" y se equivocaron.
@elbajador714
Este ultimo es el que estaba buscando
muchas gracias, no se como dejar puntos +10
@hurracan1ambulante
Tengo un archivo excel que me pide contraseña desde que se inicia, ni siquiera puedo ver nada de lo que hay dentro, este archivo fue creado por mi persona años atras y olvide la contraseña. Ninguna de las soluciones aqui fueron capaz de ayudarme pero gracias. Si saben de alguna les agradeceria mucho.
@daniel9
que grande! me ayudo mucho con un documento del trabajo.
@alejandro09
10 puntos carnal me salvaste de una desvelada