Herbers Excel-Forum - das Archiv

Gliederung/Gruppierung & Kommentare mit Blatschutz

Bild

Betrifft: Gliederung/Gruppierung & Kommentare mit Blatschutz
von: Daniel

Geschrieben am: 04.04.2005 17:39:09
Hallo
Bei meinem Spreadsheet verwende ich momentan diesen Script um die Verwendung der:
Private Sub Workbook_Open()
Dim iWks As Integer
For iWks = 1 To Worksheets.Count
Worksheets(iWks).Protect UserInterfaceOnly:=True, Password:="xxx"
Worksheets(iWks).EnableOutlining = True
Next iWks
End Sub

Dies schützt alle Tabellenblätter automatisch, allerdings ohne dass ich noch einstellen kann, was eigentlich geschützt werden soll und was nicht. Jetzt sollten die User aber auch Kommentare hinzufügen können, wie kann ich denen diese Recht auch noch geben.
Vielen Dank für eure Hilfe.
Daniel.
Bild

Betrifft: AW: Gliederung/Gruppierung & Kommentare mit Blatsc
von: P@ulchen

Geschrieben am: 04.04.2005 17:56:34
Hallo Daniel,
versuch mal so:


Private Sub Workbook_Open()
Dim iWks As Integer
For iWks = 1 To Worksheets.Count
Worksheets(iWks).Protect DrawingObjects:=False, UserInterfaceOnly:=True, Password:="xxx"
Worksheets(iWks).EnableOutlining = True
Next iWks
End Sub

     Code eingefügt mit Syntaxhighlighter 2.1

Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Bild

Betrifft: AW: Gliederung/Gruppierung & Kommentare mit Blatsc
von: Daniel
Geschrieben am: 04.04.2005 23:53:38
Vielen Dank! - Hat geklappt.
 Bild
Excel-Beispiele zum Thema "Gliederung/Gruppierung & Kommentare mit Blatschutz"
Kommentare in geschützte Tabellen einfügen Bereichsnamen ermitteln und als Kommentare anzeigen
Kommentare löschen und deren Texte in Zellen übernehmen Tabellenblattdaten einschließlich Kommentare in Textdatei
Hyperlinkadressen zu Kommentaren konvertieren Grafiken in Zellkommentaren anzeigen