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

Fuentes de Información - Desproteger o Desbloquear Libro EXCEL

El contenido del post es de mi autoría, y/o, es un recopilación de distintas fuentes.

Dar puntos
75 Puntos
Votos: 12 - T!score: 6.5/10
  • 1 Seguidores
  • 27.508 Visitas
  • 10 Favoritos

26 comentarios - Desproteger o Desbloquear Libro EXCEL

@coderdeath Hace más de 2 años +1
tengo el codigo fuente para desproteger o mostrar Archivos XLS... te lo puedo pasar para anexar a tus codigos fuente....
@nallochis Hace más de 2 años
Me sirvio!! mil gracias!
@matrodri Hace más de 2 años
Genial muchas gracias!!!
@SteelManBlue Hace más de 1 año
Excelente.. me sirvio n... andaba buscando mi post con esto.. pero no lo encontre... Salu2
@mbellso Hace más de 1 año
Gracias!!!! Sirvió con XL 2010!!!
@diazpluisd Hace más de 1 año
Excelente aporte, ne saco de apuro gracias.
@RabbitWhite84 Hace más de 1 año
Muy buen aporte
@Mixxer Hace más de 1 año +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 Hace más de 1 año +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 Hace más de 10 meses +1
INTELIGENCIA COLECTIVA........ MUCHAS GRACIAS... ME SIRVIÓ....
@CyborgGhost Hace más de 9 meses
Exacto solo sirve para hojas no libros !!!
@apppapi Hace más de 9 meses
gracias me salvaste
@Digital_Junior Hace más de 9 meses
FUNCIONA PERFECTO, AUNQUE LE FALTO EXPLICAR, QUE LUEGO DE CREADO HAY QUE EJECUTAR EL MACRO.
@NEMALAVA73 Hace más de 8 meses
Funciona gracias...
@alanelchirilo Hace más de 6 meses
Graacias, me re salvaste funciono para 2014
@_Teiwaz_ Hace más de 5 meses
Gracias!!, buenisimo aporte, me re sirvio!
@cfmaster Hace más de 5 meses
Muy Util!
@KNCER Hace más de 5 meses
eres un buen amigo gracias¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
☺☻
@diosmidas Hace más de 5 meses
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 Hace más de 4 meses
Este ultimo es el que estaba buscando
muchas gracias, no se como dejar puntos +10
@hurracan1ambulante Hace más de 4 meses
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 Hace más de 3 meses
que grande! me ayudo mucho con un documento del trabajo.
@Magnetic_ Hace 15 días
@alejandro09 Hace 14 días
10 puntos carnal me salvaste de una desvelada