Hallo zusammen,
wir haben einen Code für die Arbeit geschrieben.
Leider funktioniert der Code nur wenn man AciveWorkbook.Protect ausschaltet. Was aber nicht sein soll.
Kann mir hier einer helfen?
'Einspielen bei einer BU
Set KundenDatei = Workbooks.Open(Pfad2)
'ActiveWorkbook.Unprotect Password:="2018"
Worksheets("rein").Activate 'Aktiviert das 2. Sheet
Worksheets("rein").Range("A1").Select
ActiveSheet.Paste
'ActiveWorkbook.Protect Password:="2018", Structure:=True, Windows:=False
Application.DisplayAlerts = False 'temporär wird die Prompt-Funktion ausgeschaltet
ActiveWorkbook.SaveAs Filename:=Pfad2 'Datei wird bei Pfad2 gespeichert
ActiveWorkbook.Close
Application.DisplayAlerts = True
Danke.
Thomas