Не работает макрос

[Olper]

Уважаемы форумчане!
Подскажите плиз, почему не отрабатывает макрос защиты ячейки по условию. Суть в следующем, при определенном условии - "Да" или "Нет", соответственно защищать или снимать защиту с соседней ячейки.
Макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lsRow&, iAddress$, r As Range
If Target.Cells.Count > 1 Then Exit Sub
lsRow = Cells(Rows.Count, 5).End(xlUp).Row
If Not Intersect(Target, Range("A2:A" & lsRow)) Is Nothing Then
If Not IsEmpty(Cells(Target.Row, 1)) Then
If Cells(Target.Row, 1) = "Äà" Then
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect
Else
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Unprotect
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect
End If
End If
End If
End Sub

[kuklp]

Потому, что Вы код поместили в общий модуль, а надо в модуль листа. И селекты в нем лишние, и не только. Можно так, в модуль книги:

Private Sub Workbook_Open()
    Sheets("Лист1").Unprotect
    Sheets("Лист1").Protect userinterfaceonly:=True
End Sub

а в модуль листа:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lsRow&, iAddress$, r As Range
    If Target.Cells.Count > 1 Then Exit Sub
    lsRow = Cells(Rows.Count, 1).End(xlUp).Row
    If Intersect(Target, Range("A2:A" & lsRow)) Is Nothing Then Exit Sub
    Target(1, 2).FormulaHidden = False
    Target(1, 2).Locked = Target = "Да"
End Sub

[Olper]

Большое спасибо kuklp!
А что до лишних select'ов, так это у меня просто фрагмент большого куска.

[Olper]

И еще, к сожалению не работает Ваша рекомендация. Идея состоит в том, чтобы защищать только соседнюю ячейку напротив которой стоит "Да".

[kuklp]

У меня все работает. Выложите файл, с моим кодом, где у Вас не работает, будем выпрямлять руки.

[Olper]

Всем спасибо!!!! Тема снята, заработало., но я все таки своим воспользовался, убрал все лишнее и сделал, что бы защита в соседней ячейке стояла тока на "Да". Но с модулями листа, да....я просохатил. Еще раз спасибо. Тему закрыл.

[Olper]

Но ради интереса, т.к. Ваш код мне нравиться симпатичней, выкладываю свой файл с Вашим кодом

[kuklp]

Все так, только с изменяемых ячеек защиту снять надо бы. Иначе как менять да-нет? И после вставки кода либо перезапустить файл, либо выполнить Workbook_Open.

[Olper]

Снимаю шляпу!!!

[Olper]

Тогда извините, еще один вопрос.
Можно ли в ячейке с выпадающим списком, кроме допустим "Да", "Нет", по умолчанию ставить еще и формулу?