Вставил - Application.DisplayAlerts = False Все работает, ошибки исчезли. Но все равно не сохраняет. В чем проблема?

Коллеги, что делать? Почему Файл при открытии вопросы задает на счет замены и ничего не сохраняет? Может сохранение перед ActiveWorkbook.SaveAs AccessMode:=xlShared Вставить? А что с пользователями будут, которые висят в файле, когда другой откроет файл?
Мне пипец:(

The_Prist, подскажите пожалуйста.
Включил Указанную строчку ниже всего кода. При Открытии файла говорит, что файл уже существует в данном месте.Заменить? -Да-Нет--Отмена-. Если говорю да, то внесенные изменения не сохранились. Если другой - выводится ошибка Run-time Error 1004 Ругается на эту строчку. Что делать? Голову уже сломал. Еще в понедельник кроме табличек в ёкселе ничего не знал. Сейчас уже слово макрос знаю.

Если файл в общем доступе, то сделать доступ монопольным:

If ActiveWorkbook.MultiUserEditing Then
   ActiveWorkbook.ExclusiveAccess
   End If

Как наоборот - Если файл в монопольном, предоставить общий?

А так можно? При открытии файла:

1. сохранить данные
2. снять общий доступ
3. снять защиту
4. включить группировку
5. включить защиту
6. сохранить данные
7. дать общий доступ

Если можно, то какие коды использовать для сохранения, выкл/вк. общего доступа?
Благодарю.

Я сделал выключение защиты, включение группировки, включение защиты. Группировка заработала. Проблема - при общем доступе ошибка.

The_Prist, была такая мысль, логически понимаю, но как реализовать эту тему? Я чайник

Выдает ошибку Compile error in hidden module ЭтаКнига

Добрый день. Да, работало до общего доступа. Убираю общий доступ  - работает.

Буду очень благодарен. Ооооочень надо.

Для работоспособности функции Группировка на защищенном листе, прописан код
[Private Sub Workbook_Open()
      Protect_and_Structure Me.Sheets("Лист1")
End Sub

Sub Protect_and_Structure(wsSh As Object)
      wsSh.Unprotect "Password123"
      wsSh.EnableOutlining = True
      wsSh.Protect Password:="Password123", Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
End Sub

Группировка заработала. Но при Включении общего доступа к файлу вываливается ошибка при открытии:
Run-time Error '1004'
Application-defined object-deffined error