Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Не возможно добавить примечание к ячейке на защищенном листе при открытии документа, защита с добавленной группировкой
 
Все получилось. Спасибо большое)
Не возможно добавить примечание к ячейке на защищенном листе при открытии документа, защита с добавленной группировкой
 
Добрый день! подскажите плиз как правильно сделать, чтобы в защищенном листе при открытии документа все время работала и группировка, и можно было добавлять примечания к ячейкам.
Для группировки добавила код (см.ниже).
Для установки "примечаний" установила галочку на "изменение объектов" в защите листа, но после открытия заново документа примечание не работает(((, а с группировкой все ок. Форматирование, фильтрация и сортировка не нужна. Помогите плиз!
Код
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
Страницы: 1
Наверх