Hallo zusammen,
ich habe noch folgendes Problem und bitte um Hilfe:
Im ersten Codeteil wird ein Worksheet aus einer anderen Datei in eine Zieldatei kopiert. Das geschied auch wirklich super gut. Jetzt habe ich aber die Datei, aus der das Worksheet herauskopiert wird, mit einem Lese-Kennwort geschützt. Wenn nun das Makro läuft, stoppt es und fragt nach dem Lese-Kennwort. Wie kann das Lese-Kennwort gleich mit ins Makro übernommen werden?
Im zweiten Makro wird ein Worksheet aus der Zieldatei als neue Datei abgespeichert. Nun müsste aber für diese neue Datei gleich ein Lese-Kennwort mit gesetzt werden, natürlich ohne Eingabe des Users.
Makro1:
------------------------------------------------------------------------------
Dim wbAkt As Workbook, wbDaten As Workbook
Application.ScreenUpdating = False
Set wbAkt = ActiveWorkbook
Set wbDaten = Workbooks.Open("C:\Temp\Datenbank.xls")
If Not Err Then
Application.DisplayAlerts = False
wbAkt.Sheets("Datenbank").Delete
Application.DisplayAlerts = True
wbDaten.Sheets("Datenbank").Copy after:=wbAkt.Sheets(wbAkt.Sheets.Count)
wbDaten.Close
Sheets("Ressourcen").Activate
Range("A1").Select
Übersicht.Label24 = Range("Hilfstabelle!E1").Text
Else
MsgBox "Fehler beim Öffnen der Datei 'Daten.xls' !"
End If
Set wbDaten = Nothing
Set wbAkt = Nothing
Makro2:
------------------------------------------------------------------------------
Sheets("Datenbank").Copy
With ActiveWorkbook
.SaveAs Filename:="C:\Temp\Datenbank.xls"
.Close
Sheets("Ressourcen").Activate
Vorab schon danke
Erdogan
PS: Feedback ist selbstverständlich.