Desproteger hoja de Excel

En ocasiones estamos trabajando con documentos creados en Excel y necesitamos editar ciertas partes pero nos encontramos que el libro esta protegido con contraseña la cual no sabemos existe una forma para desbloquear el documento utilizando Macros para ello utilizamos el siguiente metodo

  • Presiona ALT + F8 para que te da la pantallita de crear una macro y el nombre del macro y pones un nombre y le das en crear
  • Cuando le des CREAR te lleva al editor de Visual Basic, ahi copiaremos el código que esta a continuación
  • Le damos en ejecutar y esperamos que nos salga una ventana de alerta con unas letras esa es la clave que tenemos que usar
  • Luego nos vamos a desproteger hoja y pegamos la clave y listo
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 "One usable password is " & 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 


Mi nombre es Emanuel Paxtian, soy Ingeniero en sistemas computacionales, antes de conocer una computadora quería ser ingeniero civil pero eso cambio cuando use una computadora por primera vez.
Me decidí a crear este blog por que para mi sirve como una biblioteca y aparte ayudo a otros que tienen problemas al igual que yo con algunos temas.
Me gusta programar y encontrar nuevos retos día con día me considero autodidacta mi mayor maestro ha sido sin duda el internet ya que aquí puedes encontrar casi todo.