Quitar contraseña en Hojas de Excel paso a paso

Hola a todos, en esta oportunidad aprenderemos como quitar, eliminar, decifrar como desea llamar usted  a un documento Excel, ya sea 2007, 2010, 2013, es cierto que aveces alguien nos pone las cosas un poco difícil ya sea tu jefe o algún profesor que te esté enseñando pues hoy ya no es necesario usar esta seguridad de microsoft office ya que quedó obsoleto ¿porque? personas como nosotros nos burlamos de la seguridad en muchas circunstancias pero a un existen personas que no conocen en tema y se hacen lo complicado que es resolver este asunto aquí muestro como suprimes esta complejidad.


Te diré en palabras muy simples como funciona seguridad de Excel, la contraseña que se crea simplemente se almacena en una plataforma que forma parte de este software Excel llamada macros, entonces si alteramos este macro estaremos manipulando un fuente interno de Excel.

Paso Nº1:  Abrimos nuestro documento Excel protegido con contraseña, y nos vamos a ficha de herramientas, Vista, desde luego botón macros se encuentra a lado derecho de nuestro documento con el siguiente icono.

PASO N 2 Una ves abierta nos pide ingresar nombre de archivo ahí escribe simplemente nombre de tu macro o simplemente tu nombre y luedo das click en CREAR

Paso N4: Una ves creado estamos frente a esta imagen. 

Paso N 5 Ahora lo más importante es pegar este código dentro del cuadro que se muestra arriba BORRANDO el código:

Sub Sergio()

End Sub

Reemplazar con el siguiente código:

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

Paso N 6, ahora simplemente daremos click en Play para que se ejecute muestro código:

Listo es todo si no te funciona o si te funcionó no olvides compartir esta información con tus amigos y darnos un like.

Si deseas más post envíanos, gracias