quitar PASS de excel

La verdad no me gustan mucho estos temas (creo), pero alguna vez nos pasa que le ponemos password a un libro o página de excel y no podemos o se nos olvido la clave, aquí les presento este material que se debe instalar cada vez que lo necesiten, se busca en en el menú principal, herrramientas y aparece una nueva función etc, etc,  para bajarlo un click a la imagen, usenlo decentemente, un saludo cuidense.

otro programa par quitar pass de excel que sirve para el 2007, el botón se instala en la pestaña de complementos y de ahí se habre el libro que se quiere utilizar, el nuevo botón aparece en la pestaña complementos (tengan paciencia se tarda en rehacer una nueva clave que tienen que anotar, parece que se congelo la imagen pero NO) ya lo probe y OK .

Y por último,complicado pero funcional pegar el siguiente código en un modulo de visual y lo ejecutas.

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

ya lo probe y funciono la fuente original es aquí