Re: Kennwortabfrage automatisieren
02.08.2002 21:36:58
Bernd
Hallo Herbert,
ich habe folgenden code: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
bei ausführung kommt fehlermeldung:
kompilierungsfehler, sub oder function nicht definiert
gruss bernd