как защитить ячейки от изменения пользователем, но не макрос

[varikvn]

В приложенном файле снята защита листа от изменений, внутренний макрос работает корректно.

Цель макроса - записать в определенную ячейку (исходя из набора правил) текущую дату.

Нужно что бы при включенной защите листа в ячейки P65 - SZ66 человек не мог вносить изменения, а макрос мог это делать.

Текущий код макроса:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim col As Long: col = Target.Column
    If Target.Count > 1 Then Exit Sub
    If Intersect(Range("P8:SZ9,P63:SZ64,P67:SZ68"), Target) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If Cells(8, col) <> "" And Cells(9, col) <> "" And _
        Cells(63, col) <> "" And Cells(64, col) <> "" Then
        Cells(65, col) = Date
    Else
        Cells(65, col) = ""
    End If
    If Cells(8, col) <> "" And Cells(9, col) <> "" And _
        Cells(67, col) <> "" And Cells(68, col) <> "" Then
        Cells(66, col) = Date
    Else
        Cells(66, col) = ""
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Есть статья, где это описывается как сделать, но я не умею.

Как защитить лист от пользователя, но не от макроса?

[gbsoftware]

пишите - droid.gbsoftware@gmail.com

[hidforce]

Могу помочь. Пишите на illusion_of_exist@mail.ru