Recuperar clave de archivo Excel
Cerrado
carla.2
Mensajes enviados
1
Fecha de inscripción
lunes, 18 de enero de 2016
Estatus
Miembro
Última intervención
lunes, 18 de enero de 2016
-
Modificado por Carlos-vialfa el 19/01/2016, 05:48
BettyAzuaje - 22 may 2019 a las 17:08
BettyAzuaje - 22 may 2019 a las 17:08
Consulta también:
- Recuperar contraseña excel gratis
- Quitar contraseña excel gratis - Mejores respuestas
- Olvide la contraseña de un archivo de excel - Mejores respuestas
- Descargar excel gratis - Programas - Hojas de cálculo
- Descargar musica gratis para usb ✓ - Foro MP3
- Recuperar contraseña gmail olvidada desde otro celular - Guide
- Descargar kmspico sin contraseña - Programas - Otros
- Descargar photoshop gratis para pc - Programas - Edición de imagen
1 respuesta
gili_sb_8712
Mensajes enviados
18
Fecha de inscripción
jueves, 11 de febrero de 2016
Estatus
Miembro
Última intervención
lunes, 15 de febrero de 2016
21
11 feb 2016 a las 20:09
11 feb 2016 a las 20:09
Se hace mediante una macro, pero no se recupera la clave únicamente se elimina la clave y queda desprotegida para que tu le asignes una nueva.
Primero oprimiras las teclas alt + F11 al mismo tiempo.
te llevara al editor de código en el menú insertar das clic en insertar modulo, te aparecerá una ventana en blanco ahí pegas el siguiente código:
Sub Delete_Password()
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 "One usable password is " & 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
msgbox "Contraseña eliminada"
End Sub
En la parte de arriba hay un boton (triangulo como el de play) das clic ahí y esperas a que la macro haga el trabajo, una vez que te mande el mensaje ya estará desbloqueado tu libro.
Espero haberte ayudado.
Saludos!!!
Primero oprimiras las teclas alt + F11 al mismo tiempo.
te llevara al editor de código en el menú insertar das clic en insertar modulo, te aparecerá una ventana en blanco ahí pegas el siguiente código:
Sub Delete_Password()
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 "One usable password is " & 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
msgbox "Contraseña eliminada"
End Sub
En la parte de arriba hay un boton (triangulo como el de play) das clic ahí y esperas a que la macro haga el trabajo, una vez que te mande el mensaje ya estará desbloqueado tu libro.
Espero haberte ayudado.
Saludos!!!
Modificado por Monnn el 22/03/2016, 10:51
3 sep 2016 a las 00:06
22 may 2019 a las 17:08
Gracias!!