Como desbloquear una pagina de excel?

27/12/2007 - 03:45 por ivanna | Informe spam
Hace unos dias le cambie la clave a una hoja de excel muy importante y ahora
no recuerdo este password. Lo que quiero saber es como desbloquedo esta hoja.

Preguntas similare

Leer las respuestas

#1 Xavier Budet Graco
27/12/2007 - 12:02 | Informe spam
Hola "ivanna", ¿cómo se puede perder, al cabo de unos días, la clave de un archivo "muy importante"? ¿por qué utilizar clave?

Bueno, por si es verdad ves a Google y haz una pregunta del tipo "excel+password" y obtendrás miles de enlaces.

Saludos,

Xavier

Quitar MAC para contestar. Gracias.

"ivanna" escribió en el mensaje news:
Hace unos dias le cambie la clave a una hoja de excel muy importante y ahora
no recuerdo este password. Lo que quiero saber es como desbloquedo esta hoja.
Respuesta Responder a este mensaje
#2 novato
27/12/2007 - 15:49 | Informe spam
Cómo desproteger una hoja en Excel.

Se puede desproteger la hoja mediante esta rutina que halla un
password válido para la hoja (y que no tiene nada que ver con el que
inicialmente tenía, ¡pero que es válido!). Copiar la rutina aquí
expuesta y pegarla en un módulo cualquiera del mismo libro, con ayuda
del editor de Visual Basic (ALT+F11 para abrir el editor). Cerrar el
editor, seleccionar la hoja a desproteger, y ejecutar la macro breakit
(ALT+F8, para seleccionarla). Tras la ejecución, un mensaje dará un
password equivalente, y la hoja ya estará desprotegida.

Para evitar que lo usen en tu contra :
Si tienes hojas ocultas o hojas protegidas,tengas o no MACROS en
uso.
protegete:( usa ALT F11)
O ve a Barra de Herramientas--> Herramientas--> Macros-->Visual
Basic Editor
YA ALLI:
Otra vez en Barra de Herramientas--> Herramientas-->VBA Projet
Propiedades--> Elije la pestaña de propiedades y selecciona
PROTEGER te recomiendo con contraseña. y dale OK o Aceptar.



Sub breakit()

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 " LISTO ! Hoja Desprotegida use nueva contraseña " &
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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida