Blatt schützen, kommentieren erlauben

[Masterette]

Guten Morgen zusammen,

ich habe für meine umfangreiche Excel-Tabelle Blattschutz eingerichtet, das beim Öffnen der Datei automatisch startet. Der Schutz soll in erster Linie andere User daran hindern, sämtliche Formeln zu verändern. Es soll aber den Usern möglich sein, Filter zu setzen und Spaltengruppierungen aufzuheben. Hierzu habe ich folgendes Makro erstellt: 

Sub Auto_Open()

'für alle Blätter ohne Passwortschutz

Dim ws As Worksheet

For Each ws In Worksheets

    ws.Protect userinterfaceonly:=True

    ws.EnableAutoFilter = True 'ermöglicht Autofilter

    ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung

Next ws

End Sub

Meine Frage nun an die Experten: Wie kann ich das Makro erweitern, um den Usern die Kommentarfunktion zu ermöglichen?

Vielen Dank im Voraus.


Viele Grüße

Masterette

[Kuwer]

Hallo,

ws.Protect userinterfaceonly:=True, DrawingObjects:=False, AllowFiltering:=True

Gruß Uwe

[Masterette]

Hallo,

ws.Protect userinterfaceonly:=True, DrawingObjects:=False, AllowFiltering:=True

Gruß Uwe

Hey, danke schon einmal. Wenn ich diese komlette Zeile einfüge, dann kann ich in jede einzelne Zelle reinklicken und sie bearbeiten. Und das sollte eben nicht sein. Ich habe bestimmte Zellen, die als 'unlocked' markiert sind, die sollen zur Bearbeitung freistehen und Zellen die als 'locked' markiert sind, sollten für die Bearbeitung gesperrt sein.

VG
Masterette

[Rabe]

Hi,

beim manuellen Schützen eines Blattes kannst Du ja die gewünschten Funktions-Freigaben erteilen.

Nun mein Vorschlag:
Zeichne die ganze Aktion doch mal mit dem Makro-Rekorder auf.
Dann kannst Du das entstandene Makro hier zur Verfügung stellen und wir helfen Dir beim Verallgemeinern und Befreien es von redundantem Ballast.