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

Forumthread: VBA Passwort setzen und ändern

VBA Passwort setzen und ändern
14.10.2004 20:58:56
claudi
Hallo!
Ich habe folgendes Problem:
Nach dem Start einer Excel_Datei erscheint ein Button, mit dem ich dann 4 weitere Dateien öffne. Im Anschluß erscheint eine UF mit Textfeld 1 und Textfeld 2.
In Textfeld 1 wird das alte Blattschutzkennwort eingetragen und in Textfeld 2 ein neues ( als Ersatz für das Erste in Textfeld 1). Mittels eines Buttons "Speichern" soll das neue Blattschutzkennwort für alle Sheets aller geöffeten Dateien gesetzt werden.
Kann jemand helfen?
Gruß Claudi
PS: Kann heute leider nicht mehr antworten, muß zur Schicht.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Passwort setzen und ändern
15.10.2004 05:07:51
Nepumuk
Hallo Claudi,
ein Beispielcode:


Option Explicit
Private Sub CommandButton1_Click()
    Dim myWorkbook As Workbook, mySheet As Object
    If Trim$(TextBox1.Text) <> "" And Trim$(TextBox2.Text) <> "" Then
        On Error GoTo Errorexit
        For Each myWorkbook In Application.Workbooks
            For Each mySheet In myWorkbook.Sheets
                mySheet.Unprotect Password:=TextBox1.Text
                mySheet.Protect Password:=TextBox2.Text
            Next
        Next
        Unload Me
    Else
        MsgBox "Ein Kennwort fehlt!", 48, "Hinweis"
        If Trim$(TextBox1.Text) = "" Then
            TextBox1.SetFocus
        Else
            TextBox2.SetFocus
        End If
    End If
    Exit Sub
Errorexit:
    MsgBox "Das alte Kennwort ist falsch!", 48, "Hinweis"
    With TextBox1
        .SelStart = 0
        .SelLength = Len(TextBox1.Text)
        .SetFocus
    End With
End Sub


Damit das setzen des Fokus in die Textboxen funktioniert, muss in den Eigenschaften des Commanbuttons "TakeFocusOnClick" auf False gesetzt sein.
Gruß
Nepumuk
Anzeige
AW: VBA Passwort setzen und ändern
15.10.2004 16:39:22
claudi
Danke, Nepomuk, hat gefunzt!
;
Anzeige
Anzeige

Infobox / Tutorial

VBA Passwort setzen und ändern


Schritt-für-Schritt-Anleitung

Um ein Passwort für deine Excel-Datei zu setzen oder zu ändern, kannst du ein einfaches VBA-Skript verwenden. Folge diesen Schritten:

  1. Öffne die Excel-Datei, in der du das Passwort ändern möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)".
    • Wähle Einfügen > Modul.
  4. Kopiere den folgenden Code in das Modul:

    Option Explicit
    
    Private Sub CommandButton1_Click()
       Dim myWorkbook As Workbook, mySheet As Object
       If Trim$(TextBox1.Text) <> "" And Trim$(TextBox2.Text) <> "" Then
           On Error GoTo Errorexit
           For Each myWorkbook In Application.Workbooks
               For Each mySheet In myWorkbook.Sheets
                   mySheet.Unprotect Password:=TextBox1.Text
                   mySheet.Protect Password:=TextBox2.Text
               Next
           Next
           Unload Me
       Else
           MsgBox "Ein Kennwort fehlt!", 48, "Hinweis"
           If Trim$(TextBox1.Text) = "" Then
               TextBox1.SetFocus
           Else
               TextBox2.SetFocus
           End If
       End If
       Exit Sub
    Errorexit:
       MsgBox "Das alte Kennwort ist falsch!", 48, "Hinweis"
       With TextBox1
           .SelStart = 0
           .SelLength = Len(TextBox1.Text)
           .SetFocus
       End With
    End Sub
  5. Erstelle ein Benutzerformular mit zwei Textfeldern (TextBox1 für das alte Passwort und TextBox2 für das neue Passwort) und einem Button (CommandButton1).

  6. Setze die Eigenschaft "TakeFocusOnClick" des Buttons auf False, damit der Fokus korrekt funktioniert.

  7. Starte das Skript, gebe das alte Passwort ein und das neue Passwort, um den Blattschutz für alle Arbeitsblätter zu ändern.


Häufige Fehler und Lösungen

  • Fehler: "Das alte Kennwort ist falsch!"

    • Stelle sicher, dass du das richtige alte Passwort eingibst. Achte auf Groß- und Kleinschreibung.
  • Fehler: "Ein Kennwort fehlt!"

    • Überprüfe, ob du beide Textfelder ausgefüllt hast. Es müssen sowohl das alte als auch das neue Passwort eingegeben werden.
  • Excel-Datei Passwort vergessen?

    • In diesem Fall kann der oben genannte Code nicht helfen. Es gibt Tools von Drittanbietern, die möglicherweise in der Lage sind, ein vergessenes Passwort zurückzusetzen, aber ihre Verwendung ist mit Vorsicht zu genießen.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch manuell das Passwort ändern:

  1. Gehe zu "Überprüfen" in der Excel-Menüleiste.
  2. Klicke auf "Blattschutz aufheben" und gebe das aktuelle Passwort ein.
  3. Setze das Passwort erneut, indem du "Blatt schützen" wählst und ein neues Passwort eingibst.

Diese Methode eignet sich für Benutzer, die nicht mit VBA vertraut sind, erfordert jedoch, dass das alte Passwort bekannt ist.


Praktische Beispiele

Ein Beispiel für die Verwendung des Codes könnte wie folgt aussehen:

  • Altes Passwort: 1234
  • Neues Passwort: abcd

Nach Eingabe dieser Werte in die Textfelder kannst du den Blattschutz erfolgreich ändern. Dies ist besonders nützlich, wenn du häufig an Excel-Dateien arbeitest und den Schutz regelmäßig aktualisieren möchtest.


Tipps für Profis

  • Sichere deine VBA-Projekte, indem du sie mit einem Passwort schützt, um unbefugten Zugriff zu verhindern.
  • Verwende Variablen, um die Passwortverwaltung flexibler zu gestalten und um sicherzustellen, dass Änderungen einfach implementiert werden können.
  • Erstelle eine Sicherungskopie deiner Excel-Datei, bevor du Änderungen an Passwörtern vornimmst. Dies hilft dir, Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Was kann ich tun, wenn ich mein Excel-Passwort vergessen habe?
Es gibt Tools von Drittanbietern, die das Passwort für dich zurücksetzen können, aber sei vorsichtig bei der Verwendung solcher Software.

2. Kann ich das Passwort für eine Excel-Datei ohne VBA ändern?
Ja, du kannst das Passwort manuell über die Excel-Oberfläche ändern, solange du das alte Passwort kennst.

3. Wie kann ich ein VBA Passwort setzen?
Du kannst das Passwort für dein VBA-Projekt im VBA-Editor unter "Extras" > "Eigenschaften von VBAProject" > "Schutz" einstellen.

4. Ist es sicher, Passwörter in Excel zu speichern?
Das Speichern von Passwörtern in Excel kann riskant sein, insbesondere wenn die Datei nicht gut geschützt ist. Verwende starke Passwörter und halte deine Dateien sicher.

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