Dateien mit kennwort automatisch öffnen
15.09.2006 14:45:24
achim
wer kann mal schauen? was muss ich ändern?
Mit diesem code öffne ich alle diese aufgeführten dateien.
alle dateien sind mit einem kennwort versehen."Test"
nun öffne ich die datei ausbildung und diese soll ohne rückfrage des kennwortes die dateien öffnen. leider tut es aber nicht sondern fragt nach kennwort.keine ahnung was das soll?
was muss ich an meinem code ändern?
Private Sub Workbook_Open()
Dim strPfad As String
strPfad = ThisWorkbook.Path & "\" & "01_DFStrab.xls"
Workbooks.Open strPfad, Password:="test"
strPfad = ThisWorkbook.Path & "\" & "01_Straßenverkehrsordnung außer Vorfahrt.xls"
Workbooks.Open strPfad, Password:="test"
strPfad = ThisWorkbook.Path & "\" & "02_Straßenverkehrsordnung außer Vorfahrt Zeichen.xls"
Workbooks.Open strPfad, Password:="test"
strPfad = ThisWorkbook.Path & "\" & "03_Allgemeine Dienstvorschrift_DFSTRAB.xls"
Workbooks.Open strPfad, Password:="test"
strPfad = ThisWorkbook.Path & "\" & "04_Signalordnung Straßenbahn.xls"
Workbooks.Open strPfad, Password:="test"
strPfad = ThisWorkbook.Path & "\" & "05_Fahrdynamische Grundlagen_Fahrzeugtechnik_Sonstige.xls"
Workbooks.Open strPfad, Password:="test"
strPfad = ThisWorkbook.Path & "\" & "06_Vorfahrtsfragen.xls"
Workbooks.Open strPfad, Password:="test"
strPfad = ThisWorkbook.Path & "\" & "07_Fragebogen1.xls"
Workbooks.Open strPfad, Password:="test"
strPfad = ThisWorkbook.Path & "\" & "14_DF_Bus.xls"
Workbooks.Open strPfad, Password:="test"
Windows("01_Ausbildung.xls").Activate
StartBild.Show
End Sub