Recuperar clave de archivo Excel
Cerrado
carla.2
Mensajes enviados
1
Fecha de inscripción
lunes 18 enero 2016
Estatus
Miembro
Última intervención
18 enero 2016
-
18 ene 2016 à 15:59
BettyAzuaje - 22 may 2019 à 17:08
BettyAzuaje - 22 may 2019 à 17:08
Consulta también:
- Olvide contraseña excel
- Como saber la contraseña de un archivo de excel - Mejores respuestas
- Recuperar contraseña excel - Mejores respuestas
- Datedif excel - Guide
- Como poner grados en excel - Guide
- Como dividir en excel - Guide
- Pasar datos de una hoja de excel a otra automáticamente - Guide
- Quitar contraseña ipad - Guide
1 respuesta
gili_sb_8712
Mensajes enviados
18
Fecha de inscripción
jueves 11 febrero 2016
Estatus
Miembro
Última intervención
15 febrero 2016
21
11 feb 2016 à 20:09
11 feb 2016 à 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!!!
22 mar 2016 à 10:50
3 sep 2016 à 00:06
22 may 2019 à 17:08
Gracias!!