desbloquear archivo de excel con contraseña

[Ayudante De Santa]

[macaflo]

les traigo un codigo para que lo peguen en visual sobre cualquier archivo de excel que les envien y este bloqueado para evitar su edicion, no hay que ser un programador experimentado, simplemente dan click en la pestaña Programador despues en visual basic y le dan copiar y pegar en el codigo (borren todo lo que les aparece en la pantalla, el codigo viene completo) despues de copiarlo buscan un boton con el simbolo de play de cualquier reproductor este lo que hace es ejecutar el codigo que acabamos de copiar y listo de inmediato les debe aparecer un aviso diciendo que les quito la contraseña


Sub Quitar_contraseña()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim a1 As Integer, a2 As Integer, a3 As Integer
Dim a4 As Integer, a5 As Integer, a6 As Integer
On Error Resume Next
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _
& Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)
ActiveSheet.Unprotect Contraseña
If ActiveSheet.ProtectContents = False Then
MsgBox "¡Enorabuena!" & vbCr & "Se ha quitado la contraseña:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

[Ayudante De Santa]

[contaminado]

no entendi.. como funciona realmente

[SilverS]

Contraseña???? lo voy a probar, me gustaria saber como se haria con uno de word