Desbloquear Contraseña mediante macro

PAra desc}bloaquear una hoja de excel , que tenga contraseña es m}necesario abrir el edito de visual basic, (alt + f11)
una vez abierto , en la hoja que tiene contraseña iniciar unmodulo, y pegar el siguinet codigo, correrlo mediante f5 . esperar un momento hasta que la macro corra y ns muestre el msj al finalizar la macro.
importancia consiste en que el hombrelogre su propia autodeterminación como persona.
Esta tarea educativa no es posible sin la cooperación de las instituciones, en este caso la universidad, por ello es imprescindibletrabajar de la mano, acompañando el proceso de formación integral desde un proyecto de vida.
Mediante este se busca resaltar la importancia de vivir los valores y el compromiso yresponsabilidad de toda la comunidad de la Universidad del Valle de México, para ponerlos al servicio de la comunidad, buscando siempre el bien común.


Sub Descubrir_contraseña()
Dim a AsInteger, 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 ErrorResume 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 & "La contraseña es:" & vbCr & Contraseña



PRESENTACION

El quehacer de lasuniversidades para cumplir cabalmente con su función social, debe basarse en la educación con un enfoque integral, esto es: La conjunción de la dimensión curricular, la promoción