Kennwort geschützte Datei per VBS öffnen

Forumthread: Kennwort geschützte Datei per VBS öffnen

30.05.2014 08:38:28

Jürgen

Hallo liebe Herber-Gemeinde,
ich habe meine Dateien mittels Benutzer Erkennung und passende Steuerung geschützt, das funktioniert aber nur innerhalb meiner Abteilung, da nur diese Kollegen meinem Zertifikat vertrauen.
Wenn jetzt jemand aus einer anderen Abteilung, die Datei öffnet und die Frage nach dem Makro mit "Nein" beantwortet, dann kommt dieser mit unter auf unsere Abteilungsdaten.
Um dies zu verhindern, sehe ich nur eine Möglichkeit, nämlich die Dateien mit einem Öffnen-Kennwort zu versehen.
Nun suche ich für meine Kolleginnen und Kollegen eine Möglichkeit diese Dateien, per *.vbs Script zu öffnen, ohne immer wieder das Passwort einzugeben.
Ein Script zum öffnen habe ich schon aus einer anderen Datei.

Set wshell = CreateObject("Wscript.shell")
wshell.Run ("EXCEL.EXE ""\\Beispielpfad\Netzwerk\Musterdatei.xls""")

Wie müsste das Script denn aussehen, wenn die Datei Passwort geschützt wäre.
Dieses Script habe ich bei meiner Suche heute morgen gefunden.
gefunden bei einem Posting von jah aus 2006

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run(chr(34) & "G:\IT Support\NetDok\Inventar\INVENTAR.XLS" & chr(34))
WScript.Sleep 100
do until success = true
success = WshShell.AppActivate ("Kennwort")
WScript.Sleep 1000
Loop
WshShell.SendKeys "passwort{ENTER}"

Wie immer, besten Dank schon im voraus.
Viele Grüße
Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kennwort geschützte Datei per VBS öffnen

30.05.2014 12:27:57

UweD

Hallo
eine andere Möglichkeit:
- Beim schliessen der Datei setzt du alle Tabellenblätter auf VeryHidden (mit Workbook_BevoreClose)
- ausser ein Blatt. Hierauf steht, dass die Datei nur mit Makros verwendbar ist.
-Schliessen
Öffnet jetzt ein User ohne Makros, findet er nur dieses eine Blatt
- - -
Mit Workbook_Open wird das eine Blatt ausgeblendet und alle anderen Blätter wieder eingeblendet
- Das geschieht, wenn ein User inkl . Makro öffnet..
Gruß UweD

Kennwort geschützte Datei per VBS öffnen

30.05.2014 12:46:08

Anton

Hallo Jürgen,
irgendwie so:

  Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Open "c:\tmp\test1.xls", , , , "passwort"

Problem ist nur, dass dein Passwort dann im Klartext im vbs Script zu lesen ist...
mfg Anton

AW: Kennwort geschützte Datei per VBS öffnen

30.05.2014 17:20:13

Nepumuk

Hallo,
du könntest das Kennwort so tarnen:

objExcel.Workbooks.Open "c:\tmp\test1.xls", , , , Chr$(80) & Chr$(97) & _
Chr$(115) & Chr$(115) & Chr$(119) & Chr$(111) & Chr$(114) & Chr$(100)

das entspricht dem Kennwort: Password
Gruß
Nepumuk

AW: Kennwort geschützte Datei per VBS öffnen

30.05.2014 18:03:10

Jürgen

Hallo liebe Helfer!
Danke für Eure Anregungen!
@UweD
Das hatte ich auch vor! Jedoch hat diese Lösung einen Haken, wenn der Benutzer z. B. vorher manuell speichert, und dann beendet und die Fragen nach dem Speichern verneint, dann bleibt die Datei so stehen, wie Sie zuletzt gespeichert wurde. In dem Augenblick würde ein Nutzer mindestens die letzte Seite sehen, die gespeichert wurde.
@Anton und Nepumuk
Danke für Eure Anregungen. Ich werde hier mal dran rumbasteln. Das Kennwort kann ruhig im Klartext verfügbar sein. Denn dieses Script würden dann nur berechtigte Kolleginnen und Kollegen auf dem Rechner haben. Es geht hier ja auch nicht um hypersensible Daten. Ich möchte einfach verhindern, dass Mitarbeiter/innen aus anderen Abteilungen auf bestimmte Dateien zugreifen können.
Euch dreien nochmals vielen Dank für die Anregungen und ein schönes Wochenende
Viele Grüße
Jürgen

Infobox / Tutorial

Kennwort geschützte Excel-Datei per VBS öffnen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um eine kennwortgeschützte Excel-Datei per VBS zu öffnen, kannst Du das folgende Vorgehen nutzen:

Erstelle eine neue .vbs Datei: Öffne einen Texteditor und speichere die Datei mit der Endung .vbs.
Füge den folgenden Code ein:
```
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Open "C:\Pfad\Zur\Datei.xlsx", , , , "dein_passwort"
```
Ersetze "C:\Pfad\Zur\Datei.xlsx" mit dem tatsächlichen Pfad zu Deiner Excel-Datei und "dein_passwort" mit dem tatsächlichen Passwort.
Speichere die Datei und führe sie aus, um die geschützte Datei zu öffnen.

Häufige Fehler und Lösungen

Fehler: "Datei nicht gefunden"
- Stelle sicher, dass der Pfad zur Datei korrekt ist und die Datei tatsächlich existiert.
Fehler: "Zugriff verweigert"
- Überprüfe die Berechtigungen für die Datei und stelle sicher, dass Du die richtigen Anmeldeinformationen hast.
Passwort im Klartext
- Beachte, dass das Passwort im Code sichtbar ist. Verwende ggf. Methoden, um das Passwort zu tarnen, z.B. durch die Verwendung von Chr-Funktionen.

Alternative Methoden

Eine andere Möglichkeit, eine geschützte Datei zu öffnen, besteht darin, alle Blätter auf „VeryHidden“ zu setzen und nur ein Blatt sichtbar zu lassen, das darauf hinweist, dass die Datei nur mit Makros verwendet werden kann. Dazu kannst Du den Workbook_Open und Workbook_BeforeClose Ereignisse in deinem Excel VBA nutzen.

Praktische Beispiele

Hier ein Beispiel für das Tarnen eines Passworts im VBA-Code:

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Open "C:\Pfad\Zur\Datei.xlsx", , , , Chr(80) & Chr(97) & Chr(115) & Chr(115) & Chr(119) & Chr(111) & Chr(114) & Chr(100)

In diesem Beispiel wird das Passwort „Password“ durch die Verwendung von Chr-Funktionen verschlüsselt.

Tipps für Profis

Vermeide Klartext-Passwörter: Wenn möglich, verschleiere Passwörter, um Sicherheitsrisiken zu minimieren.
Nutze Skripte für die IT-Inventarisierung: Automatisiere wiederkehrende Aufgaben in der IT-Inventarisierung, indem Du VBS-Dateien erstellst, die automatisch geschützte Excel-Dateien öffnen und Daten extrahieren.

FAQ: Häufige Fragen

1. Wie kann ich meine .vbs Datei ausführen?
Du kannst die .vbs Datei einfach durch Doppelklick öffnen. Stelle sicher, dass Du die richtigen Berechtigungen hast.

2. Ist es sicher, Passwörter im VBS-Skript zu speichern?
Es ist nicht sicher, Passwörter im Klartext zu speichern, da jeder, der Zugriff auf das Skript hat, das Passwort einsehen kann. Verwende verschlüsselte Methoden, wenn möglich.

3. Kann ich auch passwortgeschützte Word-Dateien mit VBS öffnen?
Ja, Du kannst ähnliche Techniken verwenden, um passwortgeschützte Word-Dateien zu öffnen. Der Code wird jedoch leicht abweichen.

Beliebteste Forumthreads (12 Monate)

Kennwort geschützte Datei per VBS öffnen

Forumthread: Kennwort geschützte Datei per VBS öffnen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Kennwort geschützte Excel-Datei per VBS öffnen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Kennwort geschützte Datei per VBS öffnen

Forumthread: Kennwort geschützte Datei per VBS öffnen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Kennwort geschützte Excel-Datei per VBS öffnen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread