ich habe folgende Problemstellung und wäre euch sehr dankbar, wenn ihr mir weiterhelfen könntet.
Ich habe ein Programm geschrieben, welches Daten von einer Datei (2) kopiert und diese in eine andere Datei (1) überträgt. Hierbei werde ich in die Datei (2) einen Blattschutz mit dem Passwort Enter2020 einfügen. Daher muss ich ein Zusatzprogramm in mein bisheriges Programm einfügen, welches den Blattschutz mit dem genannten Passwort öffnet, die Daten überträgt, den Blattschutz einfügt und die Datei (2) danach schließt.
Das bisherige Programm lautet:
Sub Datenübertragung()
Dim wb As Workbook
Application.ScreenUpdating = False
Set wb = Workbooks.Open ("C:\Users\DGAZIOG\Desktop\Arbeitsgebiete\Containerauslastung\
Containerkosten\Seefrachten.xlsm")
wb.Worksheets("Übersicht_aktuell").Range("D6:D31").Copy ThisWorkbook.ActiveSheet.Range("D58:D80" _
)
wb.Close False
End Sub
Ihr würdet mir sehr helfen, wenn Ihr mich unterstützen könntet. Ich denke für euch als Experten wäre dies ein kleiner Schritt als für mich.Ich bedanke mich herzlich bei jedem im Voraus für die Hilfe!
Liebe Grüße
DE