Arbeitsblattschutz
Heiko
ich erstelle ein Makro, welches eine Datei (Zieldatei) öffnet, den Schreibschutz entfernt, in eine andere Datei (Quelldatei) wechselt, von dort Werte kopiert und diese in die Zieldatei einfügt, anschließend wird der Arbeitsmappenschutz wieder aktiviert:
Schreibschutz enfernen
ActiveWorkbook.Unprotect Password:="?"
'Blatt einblenden
Worksheets("PC_Liste").Visible = True
'wechseln in Tabelle mit PC-Daten
Windows("PC Liste aus 2011_V1.xls").Activate
Sheets("PC_Liste").Select
Columns("A:E").Select
Selection.Copy
'wechseln in Zieldatei
Windows("DSD_S_GLSe_BW013.xls").Activate
Sheets("PC_Liste").Select
Range("A1").Select
' Werte Kopie
ActiveSheet.Paste
'Blatt ausblenden
Worksheets("PC_Liste").Visible = False
'Worksheets("Pers. Markttarife").Select
'Range("G13").Select
' Schreibschutz einfügen
Worksheets("DSD_S_GLSe_BW013").Protect Password:="?"
Beim aktivieren des Arbeitsmappenschutzes erhalte ich die Fehlermeldung:
Laufzeitfehler 9, Index ausserhalb des gültigen Bereiches. Was mache ich falsch. Habe es schon mit Worksheet select und Range probiert. Kann mir jemand helfen?
Danke
Heiko