DrawingObjects & Outlining
01.03.2006 21:19:02
Frank
nachdem mir schon einmal so gut geholfen wurde, schiebe ich gleich meine zweite Frage hinterher. Ich habe eine geschützte Excel Tabelle bei der die Gruppierung von Spalten/Zeilen und das hinzufügen von Kommentaren möglich sein sollen. Leider muss die Tabelle Excel97 kompatibel sein, so dass ich auf die Vorzüge von Excel 2003 etc. nicht zurückgreifen kann. Ich habe zwei Makros für dieses Problem bei den jeweils nur eine Forderung erfüllt wird. Vielleicht kann mir jemand helfen.
***
Private Sub Workbook_Open()
Dim myWorksheet As Worksheet
For Each myWorksheet In ThisWorkbook.Worksheets
With myWorksheet
.Protect Password:="test", DrawingObjects:=False, Contents:=True, Scenarios:= _
True
.EnableOutlining = True
End With
Next
End Sub
***
hier funktionieren die Kommentare die Gruppierung jedoch nicht
***
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="test"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
***
hier funktioniert die Gruppierung aber die Kommentare nicht.
Ein Wunsch von mir wäre noch alle Gruppierungen (mehrere Tabellenblätter) mittels Makro zu öffnen und zu schließen.
Vielen Dank
Frank