Hi!
folgende Prozedur soll eine Datei öffnen und dabei den Schreibschutz lösen. Obwohl die Variable pw (Passwort) richtig ist, wird mir angezeigt, das Passwort wäre ungültig.
Hilfe!
Dim pw As Variant
pw = "oeffnen"
Application.DisplayAlerts = False
ChDir "N:\Intramonth"
Workbooks.Open Filename:= _
"N:\Intramonth\portfolios.xls" _
, UpdateLinks:=3, ReadOnly:=False, Password:=pw, WriteResPassword:=False
Application.DisplayAlerts = True