Office: (Office 2010) Zellen und Spalten einfügen trotz Makro und Blattschutz

Hallo,
ich weiß mir keinen andere Rat mehr... Ich suche jetzt bereits seit Tagen nach einer Lösung.

Ich habe eine umfangreiche Tabelle für die Kostenkontrolle von Baumaßnahmen erstellt. Da die Tabelle von verschiedenen Nutzern mit unterschiedlichen Excel-Kenntnissen genutzt werden soll, habe ich alle Zellen mit Formeln gesperrt. Die Tabelle hat dann einen Blattschutz mit Passwort erhalten. Alle Benutzer sollen Spalten und Zellen einfügen können. Dies funktioniert auch alles. Die Tabelle hat auch eine Gliederung, die nach einschalten des Blattschutzes nicht mehr funktionierte.
Nach Recherche im Netz habe ich hierfür ein Makro im Netz gefunden.

Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="Passwort"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub

Sobald ich dieses in die Datei einfüge funktioniert das Einfügen von Spalten und Zellen aber nicht mehr!

Hat einer eine Idee, wie ich das Problem lösen kann. Vielleicht das Makro erweitern, um die Möglichkeiten die der Nutzer trotz Blattschutz durchführen kann? Ich bin Neuling im Bereich der Makros.

Danke für eure Rückmeldungen.

:)

 

Hallo wieauchimmerduheißt,

hast du denn beim Schützen des Blatts die Haken bei "Zeilen/Spalten einfügen" gesetzt? Das ist eine Standardfunktion, die normalerweise ohne VBA funktioniert.
Ansonsten ganz einfach so (der Makrorekorder hilft...)

Code:

ActiveSheet solltest du nicht verwenden, denn wenn beim Schließen der Mappe das falsche Tabellenblatt ausgewählt ist, wird auch das falsche Blatt beim Öffnen geschützt.

 

Hallo Berni,
vielen Dank für die schnelle Antwort.
Ich hatte die Haken gesetzt. Das Einfügen hat auch unter Blattschutz funktioniert. Nur leider die Gruppierung nicht. Und sobald ich das Makro zur Autogliederung eingefügt hatte, konnte ich keine kopierten Zellen und Spalten einfügen.

Ich habe jetzt deinen Code versucht. Leider funktioniert damit auch nur die Gliederung. Das Einfügen von kopierten Zellen und Spalten leider immer noch nicht.

Was mache ich falsch???

Viele Grüße
Kerstin

 

Keine Ahnung was du falsch machst. Eine Beispielmappe hilft wohl beim Helfen.

 

Ich habe mich falsch ausgedrückt.

Dein Code funktioniert!!!

Ich kann Zellen und Spalten einfügen.

Ich brauche aber, das kopierte Zellen und Spalten eingefügt werden können.

Ist das über ein Makro möglich??

Danke.

 

Ja, indem du dir einen Button machst, der den Blattschutz aufhebt, Inhalt aus der Zwischenablage einfügt und dann den Blattschutz wieder setzt.