Добавление примечания когда работает защита

[d_adilet]

Имеется лист со следуюущим кодом. Но при защите листа не работает. Даже если в разрещеггых ячейках.
Как можно решить данную проблему.
Заранее спасибо.

Public iData

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not IsEmpty(Target) Then iData = Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not iData = Empty Then Target.NoteText Text:="Èçìåíåíî: " _
& Now & Chr(10) & "Ïðîøëîå çíà÷åíèå: " & iData
End Sub


P/S/ Код в примечании указывает дату изменения.

[VovaKl]

Сначала отключите защиту листа .Unprotect, а после выполнения процедуры восстановите защиту листа .Protect (с соответствующими свойствами)

[The_Prist]

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

Имеется лист со следуюущим кодом. Но при защите листа не работает.

Ставьте защиту с разрешением на изменение объетов:
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True

Если защищать не макросом, то при защите(в окне установки пароля) ставите галочку - "изменение объектов".

[d_adilet]

Огромное спасибо ребята...работает