Ayuda sugerencia Excel

[Raffa]

Hola Compañeros

He olvidado la contraseña de abertura de un fichero Excel.
Teneis algunas sugerencia a respecto?

El fichero fue creado hace tiempo donde tenia guardados los numeros y pin de tarjetas de punto de compañias de vuelo.
Resulta que ahora necesito consultar alguno dados pero con el tiempo ya no tengo la direccion de correo asi que no puedo pedir nuevo pin en cuanto me llega a la direccion antigua.

Gracias

[Whitsnak]

Varios metodos:

1er metodo explicado de culo por un sudamericano:

1ABRIR EXEL EJM: Libro1
PRECIONE ALT+F11 = TE ABRE LA VENTANA DE VISUAL
CLICK EN INSERTAR+MODULO=SE CREARA UNA CARPETA QUE CONTIENE Modulo1
SELECCIONA EL MODULO1
LUEGO COPIA ESTE CODIGO QUE ESTA ABAJO

Sub jd()
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 "¡JD TE DA TU CONTRASEÑA!" & vbCr & "La contraseña es:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

PEGAR EN EL MODULO1
LUEGO VE EN ARCHIVO+IMPORTAR, PONERLE UN NOMBRE Y GUARDAR EJEMPLO EN ESCRITORIO....
LO QUE ACABAMOS DE CREAR SE LLAMA MODULO

LUEGO ABRI TU HOJA PROTEGIDA+ PRSS ALR+F11 +IMPORTAR+SELECCIONAR TU MODULO QUE CREASTE+CERRAR PARA QUEDAR CON LA OJA PROTEGINDA+PRESS AL+F8 SELECCIONAR jd +EJECUTAR Y LISTO!!

JD TE DA TU CONTRASEÑA!! JAJA




2º metodo:

Click con el ratón en el nombre de la hoja que se quiere desproteger.
Click con el ratón en Ver código.
Copiar y pegar el siguiente código macro VBA.

Public Sub decod()
On Error Resume Next: c = Space(10)
For a = 0 To 1: Do While p < 10: p = p + 1: Mid(c, p) = a: a = 0: Loop
For j = 32 To 126: Unprotect c & a & Chr(j)
If Not ProtectContents Then MsgBox "Clave » " & c & a & Chr(j): End
Next: Do While a = 1: a = Mid(c, p, 1): p = p - 1: Loop: Next
End Sub

Regresar a la hoja Excel que se desea desproteger.
Ir a Herramientas, Macro, Macros, Ejecutar.
Y ¡¡voila!! aparece la clave alternativa y la hoja desprotegida.



Extraido de: Olvide la contraseña en documento excel [Resuelto] ([Only registered and activated users can see links]) que es la primera web que encontré en Google.

[Raffa]

Es que he probado esto pero parece que no funciona.

O tal vez no se usar esta macro

Ademas la contraseña esta puesto cuando quieres abrirlo. No cuando lo abres y tienes celdas protegidas

[Whitsnak]

¿Has probado el 2º método?, lo edité antes de que comentaras, (dame tiempo copón, jejejeje), ¿has entrado al enlance para ver más, posibles, soluciones?, ¿has googleado un poco para ver si encuentras algo, algun programilla o algo?

Creo que en Google encontrarás mas cosas que preguntando aquí, sinceramente.

[Raffa]

¿Has probado el 2º método?, ¿has entrado al enlance para ver más, posibles, soluciones?, ¿has googleado un poco para ver si encuentras algo, algun programilla o algo?

Creo que en Google encontrarás mas cosas que preguntando aquí, sinceramente.

Llevo desde antes de la comida probando vario metos

y si uso google antes cualquier duda y antes de preguntar :)

Gracias por tu disponibilidad

[Whitsnak]

Ok, intenta el 2º método que lo edité añadiendo antes de que comentaras.


A vr si tienes suerte...

[Raffa]

Probado tambien esto

Siempre devuelve una estringa como AAAAAAAA
000000000 etc etc


el problema creo que tal vez no me he explicado

la contraseña esta puesta cuando se ententa abrir el fichero. Osea que si no la metes desabilita todos los mandos

tambien estoy probando unos programas pero hasta hora nada de nada

[jamercues]

Prueba con algún linux.
Yo los pdf que están protegidos y tal, Linux se pasa la protección por el forro y puedes hacer lo que quieras.

Enviado desde mi LT26i usando Tapatalk 2

[j@calles]

Hay programas para hacer esto.

Busca en san google.

Enviado desde N7100+ usando Tapatalk 4