Macro VBA Para Desproteger Hojas de Calculo en Excel

Описание: A continuación presentamos el código VBA Macros para desproteger o desbloquear una hoja de cálculo y como utilizarlo adecuadamente.

-----------------------------------------------------
Sub Password_Breaker()

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
Dim Password As Variant

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
Password = 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 Password

If ActiveSheet.ProtectContents = False Then
MsgBox "¡Congratulations!" & vbCr & "Password:" & vbCr & Password
Exit Sub
End If

Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub
----------------------------------------------

Si te gustó este vídeo, no olvides compartirlo.

Recuerda también realizar un comentario, suscribirse a nuestro canal y dar clic en me gusta.

Recuerde que también puede encontrarnos en Nuestro Sitio Web y en las diferentes Redes Sociales:

Web: http://aprendizdefinanzas.com
E-mail: [email protected]
Facebook:   / 156003791086011  
Twitter:   / maochoao  
Linkedin: http://linkedin.com/profile/view?id=7...
Google +: http://plus.google.com/u/0/b/10316613...
Youtube:    / @tirame1dato  

Mario A. Ochoa Ocampo
Desarrollos y Aplicaciones en Microsoft Excel
Asesorías y Clases presenciales / Virtuales de Microsoft Excel
Medellín - Colombia