VBA Macros
Funciones
Trámites
TOP

Eliminando la contraseña en Excel

Descripción

Si no sabes cómo eliminar la protección con contraseña del archivo Excel, puedes elegir una de las tres opciones siguientes para hacerlo de forma rápida y sencilla.


1. Usamos un programa para eliminar contraseñas.

Google y descarga el programa. "Office Password Recovery Toolbox" , que selecciona contraseñas para documentos cifrados de Microsoft Office: Word, Excel, Outlook, bases de datos de Access y proyectos VBA.

Tenga en cuenta que las contraseñas recibidas no serán nativas, sino que solo serán una combinación de caracteres seleccionada al azar (estas son las características del mecanismo de codificación de contraseñas en Excel).

2. Eliminar contraseñas usando el código VBA

abre el menú Servicio - Macro - Editor Visual Basic (Service - Macros - Visual Basic Editor) (o presione Alt+F11), inserte el módulo VBA (menú Insert - Module) y copie este texto allí: 

Sub PasswordRemover()

    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
    Dim SheetPassword As String
    
    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
    
            SheetPassword = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
            
            ActiveSheet.Unprotect SheetPassword
            
            If ActiveSheet.ProtectContents = False Then
              MsgBox "Done" & vbcr & "enjoy it)"
              Exit Sub
            End If
    
        Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next

End Sub

Después de ejecutar esta macro, las contraseñas se eliminarán permanentemente del archivo Excel.

3. Eliminar una contraseña usando XML (para usuarios avanzados)

Pasos rápidos para descifrar la contraseña en Excel cambiando el código interno en el archivo:

Explicación detallada:

  1. El nuevo archivo xml es un contenedor.
  2. Puede abrirlo con el programa TotalCommander: colóquelo en el cursor y presione Ctrl + PageDown
  3. Así que en el camino "File.xlsx/xl/worksheets/sheet1.xml" o "sheet2" o algo más es esta hoja protegida con contraseña. Por ejemplo, ubicado en "sheet1" .
  4. Extrae el archivo "sheet1.xml" desde el contenedor XLSX y ábralo en un editor de texto.
  5. Busque "pase".
  6. El editor encontrará el contenedor XML: 
    <sheetProtection password="CF7A" sheet="1" objects="1" scenarios="1" selectLockedCells="1" selectUnlockedCells="1"/>
    O algo así. En resumen, el contenedor "sheetProtection".
  7. Elimine todo el contenedor "sheetProtection" de "<" a ">".
  8. Guarda el archivo.
  9. Devuelva este archivo al contenedor XLSX.
  10. Salga del archivo XLSX.
  11. Abre el archivo haciendo doble clic y ¡¡¡listo!!! ¡¡¡Todo funciona!!!

PD

Si conoce la contraseña, pero la pestaña Desproteger hoja ("Unprotect sheet") inactivo, debe seleccionar "Editar" ("Edit"), hacer clic en el botón "Acceder al libro" ("Access to workbook") , luego desmarque "Permitir que varios usuarios editen el archivo" ("Allow multiple users to edit file") .