Cómo desbloquear un archivo de Excel que tiene clave
Resuelto
megaaguila
Mensajes enviados
2
Fecha de inscripción
sábado, 11 de mayo de 2013
Estatus
Miembro
Última intervención
sábado, 11 de mayo de 2013
-
Modificado el 15 feb 2020 a las 12:59
Merzy_09 Mensajes enviados 1 Fecha de inscripción martes, 15 de septiembre de 2020 Estatus Miembro Última intervención martes, 15 de septiembre de 2020 - 15 sep 2020 a las 02:00
Merzy_09 Mensajes enviados 1 Fecha de inscripción martes, 15 de septiembre de 2020 Estatus Miembro Última intervención martes, 15 de septiembre de 2020 - 15 sep 2020 a las 02:00
Consulta también:
- Desbloquear excel
- Desbloquear hoja de excel - Mejores respuestas
- Desbloquear excel protegido - Mejores respuestas
- Código universal para desbloquear netbook gobierno ✓ - Foro portátiles
- Descargar excel gratis - Programas - Hojas de cálculo
- Clave universal para desbloquear huawei ✓ - Foro Huawei
- Clave para desbloquear un teléfono Huawei - Foro Móviles/PDA/GPS
- Necesito el código de 10 dígitos para desbloquear la computadora - Foro Windows 10
19 respuestas
karlosfds
Mensajes enviados
2
Fecha de inscripción
jueves, 23 de mayo de 2013
Estatus
Miembro
Última intervención
jueves, 23 de mayo de 2013
212
Modificado el 15 feb 2020 a las 12:59
Modificado el 15 feb 2020 a las 12:59
Hola,
Aquí va la respuesta:
Primer paso:
Presiona ALT + F8 para que te da la pantallita de crear una macro y el nombre del macro y pon CREAR
Segundo paso:
Cuando le des CREAR te lleva al editor de Visual Basic. Debes introducir lo siguiente:
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 "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
End Sub
Dale a GUARDAR y después ejecutas el macro (pulsa la flechita de play en el VB)
Por último, espera uno rato y te aparece un cartel con la clave interna de Excel. En la opción DESPROTEGER HOJA pon la clave y problema resuelto =)
Espero que te sirva, ¡un saludo!
Aquí va la respuesta:
Primer paso:
Presiona ALT + F8 para que te da la pantallita de crear una macro y el nombre del macro y pon CREAR
Segundo paso:
Cuando le des CREAR te lleva al editor de Visual Basic. Debes introducir lo siguiente:
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 "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
End Sub
Dale a GUARDAR y después ejecutas el macro (pulsa la flechita de play en el VB)
Por último, espera uno rato y te aparece un cartel con la clave interna de Excel. En la opción DESPROTEGER HOJA pon la clave y problema resuelto =)
Espero que te sirva, ¡un saludo!
Modificado por rrrr el 20/12/2013, 15:13
20 nov 2014 a las 17:29