Gliederung/Gruppierung & Kommentare mit Blatschutz
04.04.2005 17:39:09
Daniel
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.
Anzeige