Office: Arbeitsm.-schutz per makro aufheben, register kopieren und Arbeitsm. schützen

Hallo,

ich habe eine Datei mit ziemlich vielen Tabellenregistern die alle mit einem Blattschutz und Arbeitsmappenschutz versehen sind. Blattschutz und Arbeitsmappenschutz haben alle ein PW.

Jetzt möchte ich folgendes ermöglichen und ich weiß nicht wie:

Der Nutzer der Datei soll in dem Tabellen-Register "Tabelle 131"
auf einen Button klicken können und dann soll dieses Register,
also diese Tabelle 131, vollständig ohne Schutz in eine eine
separate neue Datei kopiert werden.

Vom Ablauf müssten das im Makro folgende Arbeitsschritte sein,
wenn ich es richtig sehe:

1. Blattschutz aufheben mit PW
2. Arbeitsmappenschutz aufheben mit PW
3. Tabelle Kopieren ohne Schutz in neue Arbeitsmappe
4. Blattschutz wieder setzen mit PW
5. Arbeitsmappenschutz wieder setzen mit PW
6. Makro zuordnen zu einem Grafikelemt

Ich weiß ungefähr wie es aussehen müsste, doch ich weiß nicht wie das
Makro aussehen müsste. Mit dem Makrorecorder funktioniert es leider nicht.

Kann mir von euch jemand helfen wie das Makro aussehen muss und
gehört das Makro in das Objekt "Diese Arbeitsmappe", "Tabelle 131" oder in ein "Modul"?

Gruß heiko

:)

 

Code:

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten