Schreibschutz per VBA
01.11.2018 13:27:14
Silvio
ganz frisch hier angekommen, nachdem ich bisher nur Leser war, kommt hier auch schon mein erstes Problem, bei welchem mich auch die SuFu verlassen hat.
Ich habe eine Tabelle mit einer unbekannten Anzahl an Sheets.
Die Anzahl verändert sich dynamisch durch den Inhalt der Haupttabelle.
Desweiteren gibt es als Tabelle1 und Tabelle2 zwei ausgeblendete Tabellen.
Beim Sichern wird eine neue Arbeitsmappe erstellt. Die Hauptseite wird kopiert und anschliessend werden alle weiteren Blätter über eine Schleife hinterherkopiert.
Wenn dies erledigt ist, sollen die Blätter der Kopie alle schreibgeschützt werden und abschliessend die Arbeitsmappe geschützt werden.
Bei Aufruf
ActiveWorkbook.Sheets(i).Protect "DasIstSuperGeheim"
erhalte ich den folgenden Fehler.
Laufzeitfehler '40063' Anwendungs- oder objektdefinierter Fehler
Im Anhang ist der Source des Modules, welches über einen Button aufgerufen wird.
https://www.herber.de/bbs/user/125046.txt
Hier bin ich mit meinem Anfängerwissen komplett am Ende und wäre für einen Ratschlag sehr dankbar.
Viele Grüße
Silvio