Hallo,
ich bin gerade am Verzweifeln. Ich will eine Arbeitsmappe öffnen, welche mit einem Passwort geschützt um Änderungen zu verhindern. Leider komme ich mit der Hilfe von Microsoft nicht weiter und die Suchfunktion im Forum geht leider auch nicht.
Mit folgendem Code wird die Mappe geöffnet und es erscheint die Meldung zur Kennworteingabe von Excel.
Habe schon einiges ausprobiert, komme aber nicht auf die Lösung wie ich jetzt das Kennwort übergebe um Änderungen zuzulassen.
Option Explicit
Sub FileOpen()
Dim src, pwd As String
src = "D:\test.xlsx"
pwd = "test123456"
'Vorlage von Microsoft:
'Workbooks.Open (Dateiname, Update Links, ReadOnly, Format, Kennwort, WriteResPassword, IgnoreReadOnlyRecommended, Ursprung, Trennzeichen, bearbeitbar, _Notify _, Konverter, AddToMru, local, CorruptLoad)
'So funktioniert es, aber das Kennwort muss manuell eingegeben werden
Workbooks.Open src
'So funktioniert es leider nicht
'Workbooks.Open (src, , , ,pwd, , , , , , , , , ,)
End Sub
|