Run-time error '1004': Shared Workbook and Macro

[ndeboni1]

Hello All,

I am having an issue with a macro abd sharing a workbook. The macro enables me to using grouping while protecting the worksheet. Here is the code:
Private Sub Workbook_Open()
Dim wksht As Worksheet
For Each wksht In ThisWorkbook.Sheets
With wksht
.EnableOutlining = True
.Protect contents:=True, userInterfaceOnly:=True
End With
Next wksht
End Sub

I recieve this message when I save the shared workbook and reopen it.

Run-time error '1004':
Method 'Proctec' of object '_Worksheet' failed.

Any suggestions to use the shared protected worksheets with the grouping would be great. Thank you.

If this helps here is the link to download the document. https://docs.google.com/open?id=0B5VfEg2PhuTIaHpoVzNLa1VxZXM

 

[ndeboni1]

Got it. For future reference.
Option Explicit

Private Sub Workbook_Open()

' check shared and stop sharing
With ActiveWorkbook
If .MultiUserEditing Then
Application.DisplayAlerts = False
.ExclusiveAccess
Application.DisplayAlerts = True
End If
End With

'enable outlining on sheet1
With Sheet1
.EnableOutlining = True
.Unprotect "password"
.Protect Password:="password", UserInterfaceOnly:=True
End With

'resave with sharing switched on
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Filename:=.FullName, AccessMode:=xlShared
Application.DisplayAlerts = True
End With

End Sub

check the sheet number in the code to make sure it aligns with the one you are trying to group. (sheet#).