Защита листа макросом с выбором параметра

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Защита листа макросом с выбором параметра (Макросы/Sub)

igrtsk

Дата: Среда, 30.07.2014, 12:40 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 314

Репутация: 50 ±

Замечаний: 0% ±

Excel 2016

Доброго времени суток всем!
Модуль листа содержит следующий макрос:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
      For Each cell In Target   'проходим по всем измененным ячейкам
         If Not Intersect(cell, Range("A2:F65536")) Is Nothing Then
              With Range("G" & cell.Row)
              ActiveSheet.Unprotect Password:="123"
                 .Value = Now
                 ActiveSheet.Protect Password:="123"
              End With
         End If
      Next cell
End Sub

[/vba]
То есть при внесении изменений в незащищенные ячейки в столбце G отображается дата и время внесения изменений. Цветом подсвечены защищаемые ячейки.

Каким образом подправить макрос, чтобы автофильтр в верхней строке оставался активным и доступным пользователю после включения защиты?