☰

Contraseña de Microsoft Excel

tag-icon • tag-icon microsoft-excel passwords
Contraseña de Microsoft Excel

Tengo dos archivos de Excel que creé hace aproximadamente un año. Ambos archivos están protegidos.

  • No se puede abrir/editar un archivo de Excel sin ingresar la contraseña correcta.
  • Y en otro archivo de Excel, Proteger hoja está habilitado en algunas celdas específicas.

Descargué algunas herramientas para recuperar ambos tipos de contraseña, pero ninguna funcionó correctamente. También había pasado porRecuperación de contraseña de Excel. La herramienta mencionada en este enlace no funcionó.

Por favor déjame saber, ¿cómo solucionarlo?

Saludos

InTech

Respuesta1

Para el archivo que PUEDES abrir, prueba esto.

Si no ve "desarrollador" en su barra de herramientas:

Haga clic en el botón de Microsoft Office Imagen del botón de Office y luego haga clic en Opciones de Excel, Opciones de PowerPoint u Opciones de Word.

Haga clic en Popular y luego seleccione la pestaña Mostrar desarrollador en la casilla de verificación Cinta.

Presione Alt+F11 (o haga clic en Visual Basic en la pestaña de desarrollador) para abrir el editor VBA. Cree una nueva macro haciendo clic en la flecha al lado del botón con la regla: Crear módulo

Copie el siguiente código y péguelo en su nuevo módulo:

    Sub PasswordBreaker()
    'Author unknown
    'Breaks worksheet password protection.
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Dim i4 As Integer, i5 As Integer, i6 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

Ctrl+S para guardar, luego cierre el editor VBA.

En su libro de trabajo, vaya a la pestaña de desarrollador y haga clic en Macros. Seleccione PasswordBreaker y haga clic en Ejecutar.

Probé esto en un par de hojas de trabajo diferentes y parece funcionar. Su experiencia puede ser diferente.

información relacionada