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