Excel-Dateien mit PowerShell entsperren

Diese Anleitung beschreibt das Entsperren von schreib- oder blattgeschützten Excel-Dateien (.xlsx, .xlsm, .xlam) sowie das Entfernen von VBA-Passwörtern mithilfe des unten stehenden PowerShell-Skripts Unlock-ExcelFile.ps1.

Schritt-für-Schritt-Anleitung

1. PowerShell öffnen

1. Die Windows-Taste drücken.
2. PowerShell eintippen und Enter drücken.

2. Skript-Ausführung temporär erlauben

Da nicht signierte PowerShell-Skripte standardmäßig von Windows blockiert werden, muss die Ausführungsrichtlinie für das aktuelle Fenster angepasst werden:

Set-ExecutionPolicy -ExecutionPolicy Bypass -Scope Process

Hinweis: Falls eine Bestätigungsabfrage erscheint, diese mit J (für Ja) und Enter bestätigen. Diese Einstellung gilt ausschließlich für die aktuelle Sitzung und erfordert keine Administratorrechte.

3. Skript ausführen

Folgenden Befehl in PowerShell eingeben (Pfade entsprechend anpassen) und Enter drücken:

Unlock-ExcelFile.ps1 -Path "D:\temp\MeineDatei.xlsx"

Sobald die Meldung [ERFOLG] angezeigt wird, ist die Datei entsperrt.

Wichtige Hinweise

• Sicherheit: Der Befehl Set-ExecutionPolicy … hebt die Ausführungssperre nur vorübergehend für das geöffnete Fenster auf. Nach dem Schließen des Fensters gilt wieder der normale Schutzstatus des Systems.
• Automatische Sicherungskopie: Das Skript erstellt vor der Bearbeitung automatisch eine Kopie der Datei im selben Ordner (gekennzeichnet durch den Namenszusatz _backup).
• VBA-Passwortschutz entfernen (.xlsm / .xlam):
  1. Die verarbeitete Datei in Excel öffnen.
  2. Auftretende Fehlermeldungen (z. B. Ungültiger Schlüssel) ignorieren und mit OK bestätigen.
  3. Mit der Tastenkombination ALT + F11 den VBA-Editor öffnen.
  4. Im Menü zu Extras > Eigenschaften von VBAProject > Reiter Schutz navigieren.
  5. Das Häkchen bei Projekt zum Anzeigen sperren entfernen, die Passwort-Felder leeren und mit OK bestätigen.
  6. Die Datei speichern. Der Passwortschutz ist nun dauerhaft aufgehoben.

Folgenden Code mit einem Texteditor abspeichern als Unlock-ExcelFile.ps1

[CmdletBinding()]
param(
    [Parameter(Mandatory = $true, ValueFromPipeline = $true, Position = 0)]
    [ValidateNotNullOrEmpty()]
    [string]$Path,

    [Parameter()]
    [bool]$CreateBackup = $true
)

# Vollständigen Pfad auflösen
$fullPath = $ExecutionContext.SessionState.Path.GetUnresolvedProviderPathFromPSPath($Path)

if (-not (Test-Path -Path $fullPath -PathType Leaf)) {
    Write-Error "Die Datei '$fullPath' wurde nicht gefunden."
    return
}

$extension = [System.IO.Path]::GetExtension($fullPath).ToLower()
if ($extension -notin @('.xlsx', '.xlsm', '.xlam')) {
    Write-Warning "Dateityp '$extension' wird nicht offiziell unterstützt."
}

# Backup erstellen
if ($CreateBackup) {
    $backupPath = [System.IO.Path]::Combine(
        [System.IO.Path]::GetDirectoryName($fullPath),
        "$([System.IO.Path]::GetFileNameWithoutExtension($fullPath))_backup$extension"
    )
    Copy-Item -Path $fullPath -Destination $backupPath -Force
    Write-Host "[INFO] Backup erstellt unter: $backupPath" -ForegroundColor Gray
}

# Assemblies laden
Add-Type -AssemblyName "System.IO.Compression"
Add-Type -AssemblyName "System.IO.Compression.FileSystem"

try {
    $zip = [System.IO.Compression.ZipFile]::Open($fullPath, [System.IO.Compression.ZipArchiveMode]::Update)

    # 1. Tabellen- und Arbeitsmappenschutz entfernen
    $xmlEntries = $zip.Entries | Where-Object { 
        $_.FullName -like "xl/worksheets/sheet*.xml" -or 
        $_.FullName -like "xl/dialogsheets/sheet*.xml" -or 
        $_.FullName -eq "xl/workbook.xml" 
    }

    foreach ($entry in $xmlEntries) {
        $stream = $entry.Open()
        $reader = New-Object System.IO.StreamReader($stream)
        $content = $reader.ReadToEnd()
        $reader.Close()
        $stream.Close()

        $originalContent = $content

        $content = $content -replace '<sheetProtection[^>]*/>', ''
        $content = $content -replace '<sheetProtection[^>]*>.*?</sheetProtection>', ''
        $content = $content -replace '<workbookProtection[^>]*/>', ''
        $content = $content -replace '<workbookProtection[^>]*>.*?</workbookProtection>', ''

        if ($content -ne $originalContent) {
            $entryName = $entry.FullName
            $entry.Delete()

            $newEntry = $zip.CreateEntry($entryName)
            $newStream = $newEntry.Open()
            $writer = New-Object System.IO.StreamWriter($newStream, [System.Text.Encoding]::UTF8)
            $writer.Write($content)
            $writer.Flush()
            $writer.Close()
            $newStream.Close()

            Write-Host "[OK] Schutz entfernt aus: $entryName" -ForegroundColor Green
        }
    }

    # 2. VBA-Passwortschutz entfernen
    $vbaEntry = $zip.Entries | Where-Object { $_.FullName -eq "xl/vbaProject.bin" }
    if ($vbaEntry) {
        Write-Host "[INFO] Entsperre VBA-Passwortschutz..." -ForegroundColor Cyan
        
        $stream = $vbaEntry.Open()
        $ms = New-Object System.IO.MemoryStream
        $stream.CopyTo($ms)
        $stream.Close()

        $bytes = $ms.ToArray()
        $ms.Close()

        $replaced = $false
        for ($i = 0; $i -lt ($bytes.Length - 3); $i++) {
            if ($bytes[$i] -eq 68 -and $bytes[$i+1] -eq 80 -and $bytes[$i+2] -eq 66 -and $bytes[$i+3] -eq 61) {
                $bytes[$i+2] = 120
                $replaced = $true
            }
        }

        if ($replaced) {
            $vbaPath = $vbaEntry.FullName
            $vbaEntry.Delete()

            $newVbaEntry = $zip.CreateEntry($vbaPath)
            $newVbaStream = $newVbaEntry.Open()
            $newVbaStream.Write($bytes, 0, $bytes.Length)
            $newVbaStream.Close()

            Write-Host "[OK] VBA-Passwortschutz manipuliert (DPB -> DPx)." -ForegroundColor Green
        }
    }

    $zip.Dispose()
    Write-Host "`n[ERFOLG] Datei wurde entsperrt: $fullPath" -ForegroundColor Green

} catch {
    Write-Error "Fehler beim Verarbeiten der Datei: $_"
}