Para cuando lo necesiten:
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 “desprotege” 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 está escrito y lo reemplazas por el siguiente código:
Sub desprotege()
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 "La contraseña es: " & 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
Al final te dirá una contraseña que puedes usar, en una ventana de mensajes. Presionas Control + C para copiar (aunque no selecciones nada aparentemente), abres el notepad y le das Pegar (Ctrl+V) y con ese password puedes desbloquear las hojas del libro.
Comentarios recientes