Home > General > 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