Буду очень благодарен. Ооооочень надо.
Для работоспособности функции Группировка на защищенном листе, прописан код
[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
Для работоспособности функции Группировка на защищенном листе, прописан код
[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