ActiveSheet.enableOutlining = true
08.06.2005 12:57:23
BeZu
ich habe nachstehendes Makro, das alle Tabellenblätter schützt.
Sub PasswortAufAllenTabellenblättersetzen()
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect ("passwort")
Next i
ActiveWindow.SmallScroll Down:=-100
End Sub
Damit ist aber leider auch die Gruppierung von Zeilen geschützt. Jetzt habe ich zwar die dazugehörigen Syntax/Befehle
"unserinterfaceonly:=true" und
"ActiveSheet.enableOutlining = true"
im Forum gefunden, kann diese aber nicht so einbauen, das das Makro funktioniert. Wie muss der Code aufgebaut sein, damit trotz Blattschutz die Gruppierung der Zellen (das pluszeichen am Rand)vom User aktiviert werden kann.
Danke vorab
Bernd