............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

DESPROTEGER HOJA

Ver el tema anterior Ver el tema siguiente Ir abajo

DESPROTEGER HOJA

Mensaje por GalileoGali el Vie Oct 03, 2008 10:50 pm

Transcribo seguidamente un codigo que detecta una posible CONTRASEÑA y desprotege la Hoja Excel. Se basa en el algoritmo de creacion de la Password, es decir Excel al tomar la Password que elige el usuario para proteger la Hoja la "Traduce, la CONVIERTE" a otra cadena equivalente algoritmicamente hablando. Esto significa que cualquiera de las dos password: la aportada por el Usuario y la version traducida por Excel. La siguiente macro prueba cadenas de 12 Caracteres, con una peculiaridad los primeros once CARACTERES son combinaciones de A y B y el ultimo elemento un CARACTER comprendido entre el 32 y el 126, que incluye ademas de una serie de signos, los digitos del 0-9, A-Z y a-z. realmente, creo que detras de esta macro, hubo vaya a saber cuando alguien que revelo un secreto, ya que "a priori", sin conocer la historia del algoritmo (ver la pagina de mcgimpsey), no se porque pudo habersele ocurrido a alguien


Código:
Sub Quitar_Clave_Hoja()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "Una posible CONTRASEÑA es " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Espero que le sea util
Aclaración: Codigo que pulula por la red, es decir: No me pertenece.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.