Clever-Excel-Forum

Normale Version: Blatt schützen, kommentieren erlauben
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
Hallo,
ws.Protect userinterfaceonly:=True, DrawingObjects:=False, AllowFiltering:=True
Gruß Uwe
(01.08.2017, 11:09)Kuwer schrieb: [ -> ]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
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.