Защита листа с задержкой по срабатыванию

[Uralmaster]

Защита листа с задержкой по времени - можно это как-то реализовать или нет?

В общем на листе 2 макроса - оба с защитой:
1.Координатное выделение

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next 'если вдруг пароль не тот 
    Application.ScreenUpdating = False 'чтоб не моргало
        Worksheets("Мероприятия").Unprotect Password:="***"

   ****************************************************
   ****************************************************
   
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="***"
End If
End Sub

2. Копирование формул в новой строке из предыдущей по условию появления значения в ячейке

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.ScreenUpdating = False 'чтоб не моргало
    ActiveSheet.Unprotect
    ************************************************
    ************************************************
    ************************************************
    'ActiveSheet.Unprotect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        ', AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="***"
End If
End Sub

Проблема такая что 1 макрос для координатного выделения и при его выполнении 2-й макрос не может исполнится-ругается на защиту ячеек почему то хотя вначале защиту должен снимать. Даже подстраховался - снимаю защиту и в начале и в конце выполнения 2 макроса - не помогло - видимо координатное выделение (макрос 1)быстрее работает или чтото еще ....

Возможен ли такой вариант чтобы постановка защиты на лист в конце выполнения макроса 1 происходила с задержкой в 2-3 сек чтоб 2 макрос успел сработать - как вариант--возможно ли такое ?
Или другие варианты выхода из ситуации есть?

Я макросы полностью не стал выкладывать - длинные но если надо выложу

[IgorGO]

можно
Application.Ontime
но я бы, как в известной пословице, 7 раз подумал, прежде чем с этим связываться...