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

Kennwort mit VBA eingeben

Forumthread: Kennwort mit VBA eingeben

Kennwort mit VBA eingeben
03.08.2020 15:17:16
AliBaba
Hallo VBA-Spezialisten,
ich hoffe ihr könnt mir behilflich sein.
Ich habe viele Dateien über Windows-Explorer mit Kennwörter versehen und zusätzlich eine Auswahl zwischen Schreibgeschützt "Ja" oder "Nein"-Auswahl drin.
Da ich monatlich diese XLSX- und XLSM-Dateien auswerten muss, will ich diese Dateien per VBA "öffnen, aktualisieren, speichern, ... und schließen" automatisch durchführen. Mein Problem ist, das ich den Kennwort immer eingeben muss und die Auswahl aus der Auswahlfenster Schreibgeschützt den Butten "Nein" aktivieren muss.
Ich habe so mit dem Code unten versucht aber ohne Erfolg:
Workbooks.Open "c:\07_MonatsAuswertung.xlsm", Password:="Hallo"
Ich habe die Auswahlfenster als doc-Datei (139437.doc) hochgeladen, weiß aber nicht wie ich sie hier sehbar machen kann :).
Ich danke Euch im Voraus.
LG
AliBaba
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kennwort mit VBA eingeben
03.08.2020 15:44:04
Rudi
Hallo,
versuchs mal mit
Workbooks.Open "c:\07_MonatsAuswertung.xlsm", WriteResPassword:="Hallo", IgnoreReadOnlyRecommended:=True
Gruß
Rudi
AW: Kennwort mit VBA eingeben
03.08.2020 16:42:04
AliBaba
Hallo Rudi,
ich danke dir für die Hilfe.
Leider funktioniert es nicht so ganz.
Schreibschutz ignorieren klappt:
IgnoreReadOnlyRecommended:=True
Aber Password eingeben funktioniert nicht so ganz. Es wird trotzdem das Passwort verlang.
WriteResPassword:="Hallo",
Oben habe ich falsche Angabe gemacht. Ich habe das Passwort über Excel (Speichern unter; Tools; Allgemeine Optionen; Kennwort öffnen: Hallo) geschrieben.
Grüße
AliBaba
Anzeige
AW: Kennwort mit VBA eingeben
03.08.2020 18:50:52
Rudi
das kommt darauf an, welche(s) PW du vergeben hast.
Öffnen=Password:= ....
Bearbeiten: WriteResPassword:= ....
z.B für öffnen und bearbeiten:
Workbooks.Open "c:\Dateiname.xlsx", Password:="xxx", writerespassword:="xxx", ignorereadonlyrecommended:=True

Gruß
Rudi
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige