Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Passwort per VBA aus Excel entfernen

Passwort per VBA aus Excel entfernen
12.12.2006 12:16:26
Markus
Hi Jungs,
habe viele Dateien die alle das selbe Passwort haben.
Das Passwort soll entfernt werden und ist bekannt.
Erste Hürde die ich habe:
Wie öffne ich automatisch nen Excel mit Passwortschutz ohne das Popup zur Eingabe kommt. ?
Workbooks.Open(DIR & "\" & strDatei, 0) geht leider nicht
Zweite Sache, wie setze ich das Passwort zurück?
Workbook.Unprotect "Pass"
geht leider net :-(
Danke
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Problem1 datei öffnen gelöst, bleibt noch entferne
12.12.2006 12:23:22
Markus
Datei öffnen geht nun, PAssword ist der fünfte Parameter.
WIe krieg ich es jetzt gelöscht?
Danke
AW: Problem1 datei öffnen gelöst, bleibt noch entf
12.12.2006 12:38:58
Reinhard
Hi Markus,
ActiveWorkbook.Unprotect password:="Geheim"
Gruß Reinhard ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
Geht leider nicht..Code inside...
12.12.2006 13:22:09
Markus
Hi Geht leider auch nicht,
das Passwort bleibt weiterhin bestehen...
ganzer Code:

Sub EntfernePasswort()
Const PFAD As String = "u:\Temp\"
Const PASSWORT As String = "TEST"
Dim wbDatei As Workbook
Dim strDatei As String
Dim Counter As Integer
On Error Resume Next
strDatei = Dir(PFAD & "\*.xls")
Do While strDatei <> ""
Set wbDatei = Workbooks.Open(PFAD & strDatei, 0, 0, 0, PASSWORT)
Workbooks(strDatei).Select
Workbooks(strDatei).Unprotect Password:="TEST"
Workbooks(strDatei).Close True
strDatei = Dir()
Counter = Counter + 1
Loop
MsgBox "FERTIG ,  " & Counter & " Dateien bearbeitet", vbInformation
End Sub

Anzeige
AW: Geht leider nicht..Code inside...
12.12.2006 13:55:11
Matthias
Hallo Markus,
hier geht es scheinbar nicht um den Arbeitsmappenschutz, sondern um das Datei-Lesekennwort:

Sub EntfernePasswort()
Const PFAD As String = "D:\Temp"
Const PASSWORT As String = "TEST"
Dim wbDatei As Workbook
Dim strDatei As String
Dim i As Integer
With Application.FileSearch
.LookIn = PFAD
.FileType = msoFileTypeExcelWorkbooks
.Execute
Application.DisplayAlerts = False
For i = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(i)
Workbooks.Open Filename:=.FoundFiles(i), Password:=PASSWORT
ActiveWorkbook.SaveAs Filename:=.FoundFiles(i), Password:=""
ActiveWorkbook.Close False
Next i
Application.DisplayAlerts = True
MsgBox "FERTIG ,  " & .FoundFiles.Count & " Dateien bearbeitet", vbInformation
End With
End Sub

Gruß Matthias
Anzeige
Vielen Dank
12.12.2006 14:30:14
Markus
Vielen Dank,
wusste nicht das das verschiedene Dinge sind.
Funktioniert super
THX
Geht leider nicht da @ work und nix installen kann
12.12.2006 12:39:55
Markus
geht leider nicht.
Kann at work nix installen.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Passwort aus Excel per VBA entfernen


Schritt-für-Schritt-Anleitung

Um ein Passwort aus einer Excel-Datei mithilfe von VBA zu entfernen, folge diesen Schritten:

  1. Öffne den VBA-Editor: Drücke ALT + F11 in Excel.

  2. Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub EntfernePasswort()
       Const PFAD As String = "D:\Temp"
       Const PASSWORT As String = "TEST"
       Dim wbDatei As Workbook
       Dim strDatei As String
       Dim i As Integer
    
       With Application.FileSearch
           .LookIn = PFAD
           .FileType = msoFileTypeExcelWorkbooks
           .Execute
           Application.DisplayAlerts = False
           For i = 1 To .FoundFiles.Count
               Debug.Print .FoundFiles(i)
               Workbooks.Open Filename:=.FoundFiles(i), Password:=PASSWORT
               ActiveWorkbook.SaveAs Filename:=.FoundFiles(i), Password:=""
               ActiveWorkbook.Close False
           Next i
           Application.DisplayAlerts = True
           MsgBox "FERTIG , " & .FoundFiles.Count & " Dateien bearbeitet", vbInformation
       End With
    End Sub
  4. Passen die Variablen an: Ändere PFAD und PASSWORT entsprechend deinen Bedürfnissen.

  5. Führe das Makro aus: Drücke F5, um das Makro zu starten.


Häufige Fehler und Lösungen

  • Fehler: "Das Passwort bleibt weiterhin bestehen"
    Lösung: Stelle sicher, dass du das richtige Passwort verwendest und dass es sich um das Dateipasswort handelt, nicht um den Arbeitsmappenschutz.

  • Fehler: "Excel Passwort entfernen geht nicht"
    Lösung: Überprüfe, ob dein VBA-Code korrekt ist und dass du die richtigen Parameter beim Öffnen der Datei verwendest.

  • Fehler: "ActiveWorkbook.SaveAs gibt einen Fehler zurück"
    Lösung: Achte darauf, dass du die Datei nicht schreibgeschützt geöffnet hast.


Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch folgende Methoden ausprobieren:

  • Excel Passwort entfernen online: Es gibt verschiedene Online-Tools, die dir helfen können, Passwörter aus Excel-Dateien zu entfernen. Achte jedoch auf die Sicherheit deiner Daten.
  • Drittanbieter-Software: Tools wie Excel Passwort Remover können helfen, wenn VBA nicht funktioniert.

Praktische Beispiele

  1. VBA Makro für mehrere Dateien: Der oben gezeigte Code entfernt das Passwort für alle Excel-Dateien im angegebenen Ordner.

  2. Einzeldatei anpassen: Wenn du nur eine Datei bearbeiten möchtest, kannst du den Code anpassen, um nur eine spezifische Datei zu öffnen und das Passwort zu entfernen.

    Workbooks.Open Filename:="C:\Pfad\zu\deiner\Datei.xlsx", Password:="DEIN_PASSWORT"

Tipps für Profis

  • Backup erstellen: Erstelle immer eine Sicherungskopie deiner Excel-Dateien, bevor du ein Passwort entfernt.
  • Passwortsicherheit: Verwende starke Passwörter, um unbefugten Zugriff zu verhindern, besonders wenn du Makros verwendest.
  • Verwende On Error Resume Next mit Bedacht: Dies kann dazu führen, dass Fehler ignoriert werden. Stelle sicher, dass du sicherheitsrelevante Fehler überprüfst.

FAQ: Häufige Fragen

1. Wie kann ich ein Excel Passwort entfernen, wenn ich es vergessen habe?
Es gibt VBA-Methoden, um ein Passwort zu knacken, aber sie sollten nur für eigene Dateien verwendet werden.

2. Gibt es eine Möglichkeit, den Passwortschutz ohne VBA zu entfernen?
Ja, du kannst Online-Tools oder Software von Drittanbietern verwenden, um das Passwort zu entfernen, aber achte auf die Sicherheit deiner Daten.

3. Funktioniert das Entfernen von Passwörtern in allen Excel-Versionen?
Die gezeigten VBA-Methoden sollten in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren.

4. Was mache ich, wenn das Passwort nicht entfernt werden kann?
Überprüfe den Code auf Fehler und stelle sicher, dass du das richtige Passwort verwendet hast. Wenn alles fehlschlägt, ziehe in Betracht, professionelle Software oder Hilfe zu suchen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige