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

Kennwort zum Öffnen per VBA setzen

Forumthread: Kennwort zum Öffnen per VBA setzen

Kennwort zum Öffnen per VBA setzen
10.07.2014 11:53:03
Arthur

Hi Excelianer.
Da denkt man es ist einfach und dann möchte es nicht ...
Ich möchte ein gerade frisch erzeugtes Workbook (Excelmappe) mit einem Lesekennwort versehen ("Kennwort zum Öffnen" in den Speichern unter->Tools->Allgemeine Optionen).
Application.Workbooks.Add
ActiveWorkbook.Protect Password:="abc"
Laut Hilfe und Beschreibung funktioniert das. Das Kennwort zum Öffnen ist jedoch nicht gesetzt. Eine Fehelrmeldung wird ebenfalls nicht ausgegeben.
Was ist falsch/ wie geht das?
Gruß, Arthur.

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kennwort zum Öffnen per VBA setzen
10.07.2014 11:54:13
Hajo_Zi
Hallo Arthur,
setze es beim speichern.

AW: Kennwort zum Öffnen per VBA setzen
10.07.2014 11:59:10
Arthur
Hallo Hajo.
Pfad/Dateiname sind sehr individuell und liegen im VBA nicht vor. Das Kennwort soll (damit es beim Speichern nicht vergessen wird einzutragen) bereits beim generieren der Datei erfolgen. Ist das ohne Speichern nicht möglich?
Gruß, Arthur

Anzeige
AW: Kennwort zum Öffnen per VBA setzen
10.07.2014 12:02:04
Hajo_Zi
Hallo Arthur,
Nein.
Gruß Hajo

AW: Kennwort zum Öffnen per VBA setzen
10.07.2014 12:37:32
Ralf P.
Hallo Arthur,
du kannst jedoch bei Eintritt verschiedener Ereignisse, das setzen des Passwortes erzwingen, bspw:
Workbook_AfterSave,
Workbook_BeforeClose
Workbook_BeforeSave
Gruß
Ralf

Anzeige
AW: Kennwort zum Öffnen per VBA setzen
12.07.2014 09:39:14
Nepumuk
Hallo,
natürlich ist es möglich dein Lese- Schreibschutzkennwort vor dem manuellen Speichern per VBA zu setzen.
Beispiel:
Public Sub Test()
    Dim objWorkbook As Workbook
    Set objWorkbook = Workbooks.Add(Template:=xlWBATWorksheet)
    objWorkbook.Password = "GEHEIM"
    Set objWorkbook = Nothing
End Sub

Das Schreibschutzkennwort verbirgt sich in der Eigenschaft "WritePassword".
Auslesen lässt es sich aber damit nicht, da werden nur Sternchen zurückgegeben.
Gruß
Nepumuk

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Kennwort zum Öffnen mit VBA setzen


Schritt-für-Schritt-Anleitung

Um ein Kennwort zum Öffnen einer Excel-Datei mit VBA zu setzen, musst du sicherstellen, dass das Kennwort während des Speichervorgangs angewendet wird. Hier ist eine einfache Anleitung:

  1. Neues Workbook erstellen:

    Dim objWorkbook As Workbook
    Set objWorkbook = Workbooks.Add
  2. Kennwort setzen: Das Kennwort wird nicht über die Protect-Methode gesetzt, sondern über die Password-Eigenschaft des Workbook-Objekts.

    objWorkbook.Password = "DEIN_PASSWORT"
  3. Workbook speichern: Stelle sicher, dass du das Workbook speicherst, um das Kennwort anzuwenden.

    objWorkbook.SaveAs Filename:="Pfad\zu\deiner\Datei.xlsx", Password:="DEIN_PASSWORT"
  4. Workbook schließen (optional):

    objWorkbook.Close

Häufige Fehler und Lösungen

  • Fehler: Kennwort wird nicht angewendet
    Wenn das Kennwort nicht funktioniert, stelle sicher, dass du das Workbook speicherst, nachdem du das Kennwort gesetzt hast. Das Kennwort zum Öffnen kann nicht ohne einen Speichervorgang festgelegt werden.

  • Fehler: Keine Fehlermeldung
    Wenn keine Fehlermeldung angezeigt wird, könnte das daran liegen, dass du versuchst, das Kennwort zu setzen, ohne das Workbook zu speichern. Dies ist ein häufiger Fehler, den viele Nutzer machen.


Alternative Methoden

Es gibt verschiedene Möglichkeiten, ein Kennwort für ein Workbook zu setzen. Eine alternative Methode ist, das Kennwort beim Speichern des Workbooks zu setzen, wie im folgenden Beispiel:

Sub WorkbookMitKennwortSpeichern()
    Dim objWorkbook As Workbook
    Set objWorkbook = Workbooks.Add
    objWorkbook.SaveAs Filename:="Pfad\zu\deiner\Datei.xlsx", Password:="DEIN_PASSWORT"
    objWorkbook.Close
End Sub

Praktische Beispiele

Hier ist ein praktisches Beispiel, wie du ein vba passwort setzen kannst, während du ein neues Workbook erstellst:

Sub KennwortSetzen()
    Dim wb As Workbook
    Set wb = Workbooks.Add
    wb.SaveAs Filename:="C:\Users\DeinBenutzername\Documents\geschützteDatei.xlsx", Password:="SicheresPasswort"
    wb.Close
End Sub

Dieses Skript erstellt eine neue Excel-Datei, schützt sie mit einem Kennwort und speichert sie im angegebenen Verzeichnis.


Tipps für Profis

  • Verwende komplexe Kennwörter: Achte darauf, ein starkes vba projekt kennwort zu wählen, das aus Groß- und Kleinbuchstaben, Zahlen und Sonderzeichen besteht.

  • Kennwort sicher aufbewahren: Speichere dein Kennwort an einem sicheren Ort, um den Zugriff auf deine Excel-Dateien zu sichern.

  • Automatisiere den Prozess: Nutze Ereignisse wie Workbook_BeforeSave oder Workbook_BeforeClose, um automatisch ein Kennwort zu setzen, bevor das Workbook geschlossen oder gespeichert wird.


FAQ: Häufige Fragen

1. Kann ich ein Kennwort zum Öffnen nachträglich setzen?
Ja, du kannst das Kennwort auch nachträglich setzen, indem du die Datei öffnest und die SaveAs-Methode mit dem Passwort verwendest.

2. Was passiert, wenn ich das Kennwort vergesse?
Wenn du das Kennwort vergisst, gibt es keine einfache Möglichkeit, auf die Datei zuzugreifen. Es ist wichtig, das Kennwort sicher zu speichern.

3. Kann ich mehrere Kennwörter für verschiedene Benutzer setzen?
Excel unterstützt nur ein Kennwort zum Öffnen. Du kannst jedoch verschiedene Dateien mit unterschiedlichen Kennwörtern erstellen.

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