Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Alle Dateien in Verzeichnis Passwort entfernen

Alle Dateien in Verzeichnis Passwort entfernen
13.07.2006 10:29:40
Bernd
Hallo, verehrte Ecel-Profis,
ich habe ein Verzeichnis auf dem Abteilungsserver, in dem dutzende gleichartige Dateien liegen. Alle Blätter in den Dateien sind per gleichem Passwort von mir geschützt. Nun möchte ich dieses Passwort entfernen, also alle Blätter in jeder einzelnen Datei entsprerren.
Wie gesagt: kein Hacking, sondern Dateien, die ich erstellt und geschuetzt habe.
Wer kann/will mir denn ein Makro hierzu zur Verfügung stellen?
Erweiterung/Ergänzung: wenn sich nur die Blätter "Detail" und "Details" in den Dateien entsperren ließen, so wäre das eine super Sache. Wenn's zu komliziert ist, dann halt die gesamte Datei.
Grüße und vorab vielen Dank an Euch.
Bernd
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Dateien in Verzeichnis Passwort entfernen
13.07.2006 10:48:07
IngGi
Hallo Bernd,
so sollte das gehen. Passwortschutz wird nur bei den Blättern Detail und Details entfernt. Achte auf die notwendigen Anpassungen.

Sub Passwort_entfernen()
Dim fso As Object
Dim fo As Object
Dim f As Object
Dim ws As Worksheet
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder("C:\Temp\") 'Verzeichnis anpassen
For Each f In fo.Files
If Right(f.Name, 4) = ".xls" Then
Workbooks.Open Filename:=f.Path
For Each ws In Workbooks(f.Name).Worksheets
If ws.Name = "Detail" Or ws.Name = "Details" Then
ws.Unprotect Passwort:="xy" 'Passwort anpassen
End If
Next 'ws
Workbooks(f.Name).Close True
End If
Next 'f
End Sub
Gruß Ingolf
Anzeige
AW: Alle Dateien in Verzeichnis Passwort entfernen
13.07.2006 11:08:04
UweD
Hallo
so?
Verzeichnis noch anpassen


      
Sub alle_Dateien_Verzeichnis_Passwort_raus() '
    Dim strFile$, strPath$, strExt$, Pass$
    Pass = InputBox(
"Welches Passwort soll verwendet werden?""Passwort entfernen")
    strPath = 
"C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen
    strExt = "*.xls"       'Dateiextension ggf. anpassen
    If strPath = "" Then
        
Exit Sub
    
Else
        strFile = Dir(strPath & strExt)
        
Do While Len(strFile) > 0
            Workbooks.Open Filename:=strPath & strFile
            
'Befehle für jede Datei
            '***
            On Error GoTo Fehler
            ActiveWorkbook.Sheets(
"Detail").Unprotect Password:=Pass
            ActiveWorkbook.Sheets(
"Details").Unprotect Password:=Pass
            
'****
            Workbooks(strFile).Close SaveChanges:=True ' Datei wird wieder geschlossen mit Speichern
            strFile = Dir() ' nächste Datei
        Loop
    
End If
Fehler:
    
If Err.Number = 9 Then 'Wenn die beiden Tabellenblätter nicht existieren
        Err.Clear
        
Resume Next
    
ElseIf Err.Number <> 0 Then
        MsgBox 
"Fehler: " & Err.Number & vbLf & Err.Description
    
End If
End Sub 


Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Alle Dateien in Verzeichnis Passwort entfernen
13.07.2006 21:33:26
Bernd
Hallo Ingi,
hallo Uwe,
leider funktionieren beide Makros nicht. Ich habe auch eine Testdatei mit sehr einfach Pfad auf meiner Festplatte angelegt und trotzdem funktioniert die Makros nicht. Die Datei wird zwar bearbeitet, aber das Passwort in der Datei nicht gelöscht.
Grüße
Bernd
Anzeige
AW: Alle Dateien in Verzeichnis Passwort entfernen
13.07.2006 22:08:32
Kurt
Die Dateien müssen gespeichert werden.
mfg Kurt
AW: Alle Dateien in Verzeichnis Passwort entfernen
14.07.2006 08:35:24
IngGi
Hallo Bernd,
kleiner Fehler, große Wirkung. In meinem Makro muss es "Password" mit "d" am Ende heissen, nicht "Passwort". Nach Änderung hat das Makro bei mir funktioniert.
Gruß Ingolf
IngGis Makro funktioniert mit "Update" vom 14.7..
15.07.2006 22:56:00
Bernd
Hallo, liebe Helfer.
Also Fazit: Das Makro von IngGI funktioniert nun einwandfrei. Deshalb meinen tiefen Dank an IngGI.
Das maro von UweD trotz aller Versuche nicht. Uwe, bitte nicht verärgert sein. Vielleicht liegt es auch an mir. Ich kann nur sagen, dass ich in beiden Makros den gleichen Pfad (mit Copy und Paste) eingetragen habe. Trotzdem auch meinen Dank an dich.
Grüße
Bernd
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Passwort aus Excel-Dateien entfernen: Schritt-für-Schritt-Anleitung


Schritt-für-Schritt-Anleitung

Um das Excel-Passwort zu entfernen, kannst Du ein VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu, indem Du mit der rechten Maustaste auf "VBAProject" klickst und "Einfügen" > "Modul" auswählst.

  3. Kopiere den folgenden Code in das Modul:

    Sub Passwort_entfernen()
        Dim fso As Object
        Dim fo As Object
        Dim f As Object
        Dim ws As Worksheet
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set fo = fso.GetFolder("C:\Temp\") 'Verzeichnis anpassen
        For Each f In fo.Files
            If Right(f.Name, 4) = ".xls" Then
                Workbooks.Open Filename:=f.Path
                For Each ws In Workbooks(f.Name).Worksheets
                    If ws.Name = "Detail" Or ws.Name = "Details" Then
                        ws.Unprotect Password:="dein_passwort" 'Passwort anpassen
                    End If
                Next ws
                Workbooks(f.Name).Close True
            End If
        Next f
    End Sub
  4. Passe den Pfad und das Passwort an Deine Bedürfnisse an.

  5. Führe das Makro aus, indem Du F5 drückst oder auf "Run" klickst.


Häufige Fehler und Lösungen

  • Fehler: Passwort wird nicht entfernt

    • Lösung: Stelle sicher, dass das Passwort im Code korrekt eingegeben ist und die Datei gespeichert wird.
  • Fehler: Arbeitsmappe wird nicht geöffnet

    • Lösung: Überprüfe den angegebenen Pfad und stelle sicher, dass die Dateien im richtigen Format vorliegen.
  • Fehler: „Blatt nicht gefunden“

    • Lösung: Vergewissere Dich, dass die Arbeitsblätter "Detail" und "Details" existieren. Andernfalls wird der Fehler ausgelöst.

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du auch manuell das Excel-Passwort entfernen:

  1. Öffne die geschützte Excel-Datei.
  2. Gehe zu den betreffenden Blättern und klicke auf "Überprüfen" > "Blattschutz aufheben".
  3. Gib das Passwort ein, um den Schutz zu entfernen.

Für eine größere Anzahl an Dateien kann ein Excel-Passwort Remover Software hilfreich sein.


Praktische Beispiele

Hier sind einige praktische Beispiele zur Verwendung des VBA-Codes:

  • Entfernen des Passworts für alle Dateien in einem Verzeichnis:

    • Stelle sicher, dass der Pfad korrekt ist, und führe das Makro aus.
  • Nur bestimmte Blätter entsperren:

    • Modifiziere den Code, um nur spezifische Blätter zu bearbeiten, wie im obigen Beispiel.

Tipps für Profis

  • Backup erstellen: Bevor Du Änderungen an mehreren Dateien vornimmst, erstelle ein Backup der Originaldateien.

  • Verwende Option Explicit: Füge Option Explicit am Anfang Deines Moduls hinzu, um sicherzustellen, dass alle Variablen deklariert sind. Das hilft, Fehler zu vermeiden.

  • Automatisierung: Überlege, wie Du den Prozess weiter automatisieren kannst, z.B. durch das Hinzufügen von Benutzerinteraktionen für die Eingabe des Passworts.


FAQ: Häufige Fragen

1. Wie kann ich das Passwort einer Excel-Arbeitsmappe entfernen?
Du kannst das Passwort entfernen, indem Du das Makro verwendest oder manuell den Blattschutz aufhebst.

2. Was tun, wenn ich das Passwort vergessen habe?
In diesem Fall empfiehlt es sich, nach einem Excel Passwort Remover zu suchen oder professionelle Hilfe in Anspruch zu nehmen.

3. Funktioniert das Makro in Excel 2016?
Ja, das Makro sollte in Excel 2016 und neueren Versionen funktionieren, solange die VBA-Umgebung korrekt eingerichtet ist.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige