Добрый день! подскажите плиз как правильно сделать, чтобы в защищенном листе при открытии документа все время работала и группировка, и можно было добавлять примечания к ячейкам.
Для группировки добавила код (см.ниже).
Для установки "примечаний" установила галочку на "изменение объектов" в защите листа, но после открытия заново документа примечание не работает(((, а с группировкой все ок. Форматирование, фильтрация и сортировка не нужна. Помогите плиз!
Для группировки добавила код (см.ниже).
Для установки "примечаний" установила галочку на "изменение объектов" в защите листа, но после открытия заново документа примечание не работает(((, а с группировкой все ок. Форматирование, фильтрация и сортировка не нужна. Помогите плиз!
Код |
---|
Private Sub Workbook_Open() Sheets("янв").EnableOutlining = True Sheets("янв").Protect Password:="ххх", UserInterfaceOnly:=True Sheets("фев").EnableOutlining = True Sheets("фев").Protect Password:="ххх", UserInterfaceOnly:=True Sheets("мар").EnableOutlining = True Sheets("мар").Protect Password:="ххх", UserInterfaceOnly:=True Sheets("апр").EnableOutlining = True Sheets("апр").Protect Password:="ххх", UserInterfaceOnly:=True Sheets("май").EnableOutlining = True Sheets("май").Protect Password:="ххх", UserInterfaceOnly:=True Sheets("июн").EnableOutlining = True Sheets("июн").Protect Password:="ххх", UserInterfaceOnly:=True Sheets("июл").EnableOutlining = True Sheets("июл").Protect Password:="ххх", UserInterfaceOnly:=True Sheets("авг").EnableOutlining = True Sheets("авг").Protect Password:="ххх", UserInterfaceOnly:=True Sheets("сен").EnableOutlining = True Sheets("сен").Protect Password:="ххх", UserInterfaceOnly:=True Sheets("окт").EnableOutlining = True Sheets("окт").Protect Password:="ххх", UserInterfaceOnly:=True Sheets("ноя").EnableOutlining = True Sheets("ноя").Protect Password:="ххх", UserInterfaceOnly:=True Sheets("дек").EnableOutlining = True Sheets("дек").Protect Password:="ххх", UserInterfaceOnly:=True End Sub |