Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kennwort geschützte Datei per VBS öffnen

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

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
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
Anzeige

96 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige