Blattschutz & kommentare & Gliederung
06.04.2005 11:52:21
Daniel
Ich habe vorgestern schon mal ein Thread über dieses Thema eröffnet, habe aber erst heute rausgefunden, dass die Lösung unbefriedigend war:
Meine Arbeitsmappe möchte ich einerseits schützen (die gesperrten Zellen), andererseits sollte der User die Gliederung verwenden können und Kommentare in den ungesperrten Zellen eingeben können.
Das untenstehende Makro erlaubt zwar die Verwendung der Gliederung im Blattschutz und durch den Zusatz "DrawingObjects:=False" kann man jetzt auch Kommentare schreiben, aber man kann auch jedes Feld wieder bearbeiten, als wäre quasi gar keine Blattschutz vorhanden.
Bitte helft mir, vielen Dank!
Daniel.
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
Anzeige