Erweiterung VBA-Programm Datenübertragung mit Blattschutz
20.12.2019 14:23:34
DE
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
Ich bedanke mich herzlich bei jedem im Voraus für die Hilfe!
Liebe Grüße
DE