Vamos a ver la manera de quitar contraseñas de una hoja en Excel, es algo que la mayoría de las personas buscamos al momento de descargar un archivo de la red y mas si se encuentra protegido para ediciones en el, algunas veces pensamos en que solo copiando y pegando en una nueva hoja lograremos pasar los datos pero eso es un error, ya que no se podría pasar adecuadamente ya que el autor de la hoja puede evitar que sea copiado o bloque las celdas.
Son muchas las maneras que llegamos intentar para copiar un libro de Excel adecuadamente pero si esta cifrada son nulas, podemos usar programas que nos ayuden a descubrir la contraseña del libro o de la hoja, usando miles de combinaciones por segundo o simplemente usando la fuerza bruta, pero muchos de los programas que vemos en la red son de paga, al momento conozco 2 de ellos como son:
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
.png "English"){kind=small}
0 comentarios:
¡Gracias por dejar tu opinión! Por favor procura que tus comentarios estén dentro de tema, que no sean promocionales (spam), ilegales u ofensivos, de otro modo, serán borrados.