Ayuda - Necesito quitar contraseña a un EXCEL

[gtobarg]

Hola, si alquien por aka tiene alguna idea de como quitarle al contraseña a un excel, se lo agradecería, no recuerdo la clave, he buscado en google y nada funciona, a me nos que compre el programita...

saludos....

[hugobegamaster]

Me acuerdo que openoffice abría archivos de excel con clave.

[CHEOFOREVER]

Esto puede servirte. A mi me funciono.

Paso 1

Como primer paso activaremos la pestaña Programador para ello debemos hacer lo siguiente, ir al Boton de Office/Opciones de excel

Paso 2

Aparecera un menu como el que se muestra, en la parte superior del cuadro activamos la opcion Mostrar Ficha de Programador en la Cinta de Opciones y finalizaremos con Aceptar

Paso 3

Como se muestra en la imagen al avtivar la opcion anterior nos aparecera la pestaña Programador, al aperecer la pestaña nos indica que estamos haciendo correctamente los pasos. xD!

Paso 4

Selecionamos la pestaña Programdor, nos ubicamos en el Icono Visual Basic tal como se muestra en la imagen

Paso 5

Al hacer click aparecera una nueva ventana de Programacion, en esta ventana hacemos lo siguiente, ir a Insertar/Modulo

Paso 6

En la ventana que nos aparece vamos pegar el siguiente codigo de programacion en Visual Basic

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© & 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 "<JoGaxD>" & 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

Paso 7

Luego vamos a la pestña Vista que se encuentra en la cinta de opciones, ahora ubicamos la ocion Macros/Ver macros

como se muestra en la imagen