группировка при защите листа

[SAS888]

Когда-то делал подобную вещь. Посмотрите здесь.
Пароль на VBA проект - "1234". При защищенном листе доступна работа с группами и автофильтром.
Там много лишнего. Уберите то, что Вам не требуется.

[vlad-minsk]

Добрый день! Большое спасибо! Буду разбириться.

[Poza]

Добрый день, у меня проблемка при разгруппировке открывается скрытый столбец, подскажите пожайлуста как это можно устранить? Большое спасибо!

[s8259]

Сообщение от SAS888

Не "обркзанные", а те, которые прописаны в опциях и заданы параметрами.
В любом случае, когда защиту листа устанавливает макрос, нужно во-первых, прописать все, что Вам требуется, во-вторых, это не сохраняется при закрытии файла. Чтобы решить все Ваши проблемы, нужно:
1. Включите макрорекордер, установите защиту листа вручную, с выбором всех необходимых опций (выделение, копирование, форматирование и т.п.), затем, отключите запись макроса, войдите в VBE и посмотрите полученный код. Для того, чтобы макросы, в отличии от пользователей, могли вносить изменения на защищенном листе не снимая и вновь устанавливая каждый раз защиту, добавьте опцию UserInterfaceOnly:=True. Этот код и используйте в макросе, устанавливающем защиту.
2. Многие опции защиты, установленные макросом, не сохраняются при сохранении файла. Поэтому, по событию открытия книги нужно снять сохраненную защиту и установить требуемую. Именно так и сделано в моем примере выше. При открытии файла запускаем макрос "Защитить", который делает все, что нужно.

Private Sub Workbook_Open(): Защитить: End Sub

Этот код должен быть расположен в модуле "Эта книга", а макрос "Защитить" - в общем программном модуле.

Добрый день SAS888!
Сделал все по вышеописанному алгоритму, при защите ячеек по выставленным условиям (разрешение выделения незаблокированных ячеек, работы автофильтра и изменение объектов) макрорекордер (Excel 2007) прописал код, который был перенесен в программный модуль, а также код запуска при открытии книги. Но при открытии файла, как и ранее, доступны заблокированные ячейки (с формулами). Может быть подскажете, в чем дело? Файл прилагаю.

[SAS888]

У Вас в модуле "Эта книга" присутствуют 2 макроса с одинаковым именем "Private Sub Workbook_Open". Это не допустимо. Макрос "Защитить", который Вы, судя по всему, хотите выполнять при открытии, на мой взгляд не имеет смысла.
Пример исправленного файла во вложении. Что сделано не так, как Вам требуется?

[madex]

Имеется макрос. Как мне снять защиту во время выполнения макроса т.е.

Sub SaveReestr()
Msg = "Скопировать в реестр?"
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbNo Then

Else
Снять защиту листа Реестр
Dim i As Integer, r As Object, p As Object
Set r = Workbooks("Товарный чек1.xls").Sheets("Реестр")
Set p = Workbooks("Товарный чек1.xls").Sheets("Чек")


For i = 2 To r.[a1].CurrentRegion.Rows.Count
If r.Cells(i, 1) = p.Cells(1, 2) Then Exit For
Next i

r.Cells(i, 1) = p.Cells(5, 2)
r.Cells(i, 2) = p.Cells(6, 2)
r.Cells(i, 3) = p.Cells(7, 2)
r.Cells(i, 4) = p.Cells(15, 5)
r.Cells(i, 5) = p.Cells(13, 5)
r.Cells(i, 6) = p.Cells(5, 3)
r.Cells(i, 7) = p.Cells(10, 1)
r.Cells(i, 8) = p.Cells(11, 1)
r.Cells(i, 9) = p.Cells(12, 1)
MsgBox "Сделано!"
Вернуть защиту листа реестр
End If
End Sub

[The_Prist]

Снять:

r.Unprotect "Пароль"

Вернуть защиту:

r.Protect "Пароль" 'через запятую параметры защиты

Еще посмотрите эту статью. Может больше подойдет.