Laufzeitfeehler 1004 bei Workbook.Protection
09.07.2018 09:51:49
Jay
mit meinem Macro sollen mehrere Exceldateien hintereinander geöffnet, etwas reinkopiert und wieder geschlossen werden. Der Aufbau sieht folgendermaßen aus:
For i = 1 To 19 Step 2
Daten_einfüllen (i)
Pfad = Dateipfad
Sheets(2).Select
ActiveSheet.Range("a1:cV2329").Copy
'Einspielen
Set KundenDatei = Workbooks.Open(Pfad)
Worksheets("Test").Activate
ActiveWorkbook.Unprotect Password:="test123"
Worksheets("Test").Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Protect Password:="Test123", Structure:=True
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Pfad
ActiveWorkbook.Close
Application.DisplayAlerts = True
Next i
Soweit so gut, leider habe ich das Problem, dass beim aktivieren des Workbook-Schutzes der Laufzeitfehler erscheint. Ich konnte bislang keine Lösung für das Problem finden, eine umfangreiche Recherche hilft leider nur bedingt weiter. Mein Problem ist, dass irgendwas mit der Zeile "ActiveWorkbook.Protect" nicht stimmt.. Hat jemand einen Rat, bzw. Tipp für die Lösung?
Vielen Dank :)