Greetings and TIA for yor time
Dave Peterson gave the code below, which works fine on unshared
workbook(Thanks again Dave). I now need to apply this facility to a shared
workbook. I know that it is not possible to protect/unprotect worksheets in a
shared workbook. Is there any other way to enableOutlining for a shared book?

Private Sub Workbook_Open()
With Worksheets("sheet2")
.Protect Password:="hi", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub
--
David