так должно быть?
или можно исправить

как только устанвливаю совместный доступ к файлу, указанный ниже макрос перестает выполняться
ошибка 1004: Method Protect of object Workshhet failed

Private Sub Workbook_Open()

Dim iWorksheet As Worksheet

'Application.ScreenUpdating = False
For Each iWorksheet In Me.Worksheets 'Workshees

iWorksheet.Protect Password:="panda", UserInterfaceOnly:=True, AllowFiltering:=True
iWorksheet.EnableOutlining = True
Next
'Application.ScreenUpdating = True

End Sub