Re: passwortabfrage automatisieren
01.08.2002 21:17:53
Bernd
Hallo Herbert,ich stelle mal mein code ins forum
Sub alle_tips_ansehen()
Application.AskToUpdateLinks = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
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
Workbooks.Open FileName:="c:\makowski\bundesliga\gesamttippzettel.xls"
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
bei der ausführung bekomme ich eine fehlermeldung:
fehler beim kompilieren. sub oder function nicht definiert
vielen dank für deine hilfe und auch jedem anderen ein dankeschön
gruss bernd