Como quitar protección de archivos de Excel

Hola amigos de Taringa.

Hace mucho tiempo que no he aportado con ideas para ayudar a nuestra comunidad.

Bueno, les traigo algo que quizá les pueda interesar, hoy tuve un inconveniete que me enviaron un formulario en excel que estaba protegido (osea no tiene permisos para poder hacer cambios) y me parecio que era molesto y empece a buscar en la red(googleando) sobre el tema y me encontre que es necesario ejecutar una macro en el archivo ya abierto, presionas alt+F8, nos aparecerá una ventana de macro, ponemos el nombre de la macro:

1º Donde Dice Nombre de la Macro le ponemos: Quitar_Contraseña
2º Damos clic en Crear
3º Se abrirá Visual Basic y pondremos esto:

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
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

4º Cerramos el editor del Basic
5º Ya en el archivo vamos a la opción vista y damos clic en macros
6º Clic en ver macros
7º ejecutamos la macro que creamos anteriormente y listo tendremos desbloqueado el archivo.


Eso es todo amigos espero que les sea de utilidad como amí.