Добрый всем день!
Вот такая проблема, есть макросна защиту листов книги,мне его тут и подсказали) Написан он для того, чтоб при защищенном листе работали ещё и сгруппированные данные. Но вот косяк, если я хочу в поле таблицы (на которое защита не распространяется и в котором можно выбрать строго из выпадающего списка) протянуть копированием (именно копирированием!!!) данное значени, например "а" на ряд соседних ячеек, ничего не получается, т.е. получается, если навестись "лапой" в правый нижнй уголок ячейки и нажать Ctrl, а мне бы хотелось просто протягиванием, как это и можно делать, когда нет защиты...
Т.е. как я понял, достаточно что-то прописать просто в тело макрлоса, чтоб он разрешал копирование протягиванием...
Как то так, файл прилагаю.
Сам макрос:
Private Sub Workbook_Open()
Dim wsSh As Object
For Each wsSh In Me.Sheets
Protect_and_Structure wsSh
Next wsSh
End Sub
Sub Protect_and_Structure(wsSh As Object)
wsSh.Protect Password:="123321", Contents:=True, Scenarios:=True, UserInterfaceOnly:=True, AllowFiltering:=True
wsSh.EnableOutlining = True
End Sub