You could loop through the worksheets. For example:

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name < "Summary" Then
With ws
.EnableOutlining = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With
End If
Next ws


bayhe wrote:
Hi,

What about if there are 10 worksheets in the file, what should I do to
enable this function in 9 of the worksheets?
Thank you very much.

"Debra Dalgleish" wrote:


If you protect the worksheet programmatically, you can enable outlining,
and you will be able to use the groups that you have created.

The following code goes in the ThisWorkbook module:

Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableOutlining = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With

End Sub

To paste the code into the ThisWorkbook module:

Right-click on the Excel icon, to the left of the File menu
Choose View Code
Paste the code where the cursor is flashing.


swami wrote:

Hi,
I need to operate the outline symbols ( +OR - , when the data grouping is
done) in a protected mode. At present Excel does not allows it . Any idea. My
excel sheet is being created by a macro and assigns all the formulas,
datagrouping . When i run from macro and check it is working. Once i save the
file and reopen it i am getting problem.



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html





--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html