Hi, danke für die schnelle Antwort aber das löst mein Problem noch nicht ganz. Oder ich setze es falsch um.
Ich habe die Zeilen etc. alles verbessert. Wo tust du den vba code rein?
bzw. ich habe ja für jedes ein Passwort, hast du für jede Datei das selbe?
Ich dachte eher das man damit hier etwas machen könnte.
Das habe ich gegoogelt.
__________________________________________________
Sub alle_tips_ansehen()
Application.AskToUpdateLinks = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open Filename:="c:\makowski\bundesliga\gesamttippzettel.xls"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\bernd.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\kenny.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\jens.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\werner.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\dirk.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\matte.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\oppong.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\toni.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\markus.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\thorsten.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\klaus.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\frank.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\karin.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\heiko.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\becker.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\eckart.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\mario.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\dieter.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\thomas.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\quang.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\sandra.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\fred.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\carsten.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\jan.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\andrea.XLS"
Workbooks.Open , Password("columbus"), Filename:="c:\makowski\bundesliga\joachim.XLS"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Sheets("tabelle36").Select
Range("e3").Select
Application.CommandBars("Worksheet Menu Bar"). _
Controls("Datei").Controls("Beenden").Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Windows("__Saison_2003.xls").Activate
Application.AskToUpdateLinks = True
Range("a1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
________________________________
Meins sieht bis jetzt so aus. ->
Sub VorhandeneMappeöffenen_projekte2()
Workbooks.Open "L:\IPG\M_Datei\Projekte2.xls"
MsgBox "Die Projekt Datei ist geöffnet und für Sie bereit! -Updated 21.04.10 -"
Dim varPW As Variant
varPW = InputBox("Diese Funktion ist nur berechtigten Personen erlaubt und daher mit einem Passwort geschützt.")
If varPW = "" Or varPW = False Then Exit Sub
If varPW = "test" Then
Workbooks.Open Filename:= _
"L:\IPG\M_Datei\Udo.xls" _
, Editable:=True
Workbooks.Open Filename:="L:\IPG\M_Datei\Walter.xls" _
, Editable:=True
Workbooks.Open Filename:="L:\IPG\M_Datei\Karl-Heinz.xls" _
, Editable:=True
Workbooks.Open Filename:="L:\IPG\\M_Datei\Bernhard.xls" _
, Editable:=True
Workbooks.Open Filename:="L:\IPG\M_Datei\Achim.xls" _
, Editable:=True
Workbooks.Open Filename:="L:\IPG\\M_Datei\Frank.xls" _
, Editable:=True
Workbooks.Open Filename:="L:\IPG\\M_Datei\Silvia.xls" _
, Editable:=True
Workbooks.Open Filename:="L:\IPG\\M_Datei\Peter.xls" _
, Editable:=True
Workbooks.Open Filename:="L:\IPG\M_Datei\Rheinhard.xls" _
, Editable:=True
Workbooks.Open Filename:="L:\IPG\\M_Datei\Elke.xls" _
, Editable:=True
Workbooks.Open Filename:="L:\IPG\\M_Datei\Gerd.xls" _
, Editable:=True
Workbooks.Open Filename:="L:\IPG\M_Datei\Hermann.xls" _
, Editable:=True
Windows("Udo.xls").Activate
ActiveSheet.Unprotect "13a"
Windows("Walter.xls").Activate
ActiveSheet.Unprotect "12a"
Windows("Katz Karl-Heinz.xls").Activate
ActiveSheet.Unprotect "11a"
Windows("Bernhard.xls").Activate
ActiveSheet.Unprotect "B10a"
Windows("Achim.xls").Activate
ActiveSheet.Unprotect "9a"
Windows("Frank.xls").Activate
ActiveSheet.Unprotect "6a"
Windows("Silvia.xls").Activate
ActiveSheet.Unprotect "5a"
Windows("RD_Laux_Peter.xls").Activate
ActiveSheet.Unprotect "4a"
Windows("Elke.xls").Activate
ActiveSheet.Unprotect "3a"
Windows("Gerd.xls").Activate
ActiveSheet.Unprotect "2a"
Windows("Hermann.xls").Activate
ActiveSheet.Unprotect "1a"
Else
MsgBox "Das war leider das falsche Passwort", vbCritical, "Passwortfehler..."
End If
End Sub
__________________________
Also nochmal, mein Ziel ist es die Datein am besten im Hintergrund zuöffnen. Damit sich die projekt2.xls sich die Daten holen kann.
Es stört halt nur das man