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

Beiträge aus den Excel-Beispielen zum Thema "Gliederung/Gruppierung & Kommentare mit Blatschutz"