Коды снятия и установка защиты листа влияют на выполнение кода

[segail]

Здравствуйте.
Помогите разобраться.
Данный код вставляет скопированные данные в формате «значения и исходное форматирование».

      If Application.CutCopyMode = 0 Then Exit Sub 'Условие - если вставка не активна, то оператор невыполним
        
        ActiveSheet.Unprotect      'Снять защиту листа
        Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
            , SkipBlanks:=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        ActiveSheet.Protect        'Установить защиту

Код работает безошибочно, но если добавить строки кода, снятия и установки защиты, то начинает выходить ошибка.
«Метод PasteSpecial из класса Range Завершен неверно»
Помогите пожалуйста исправить этот момент ошибки.

[Казанский]

При выполнении ActiveSheet.Unprotect слетает режим копирования-вставки.
Есть возможность снять защиту ДО копирования?

[segail]

Сообщение от Казанский

При выполнении ActiveSheet.Unprotect слетает режим копирования-вставки.
Есть возможность снять защиту ДО копирования?

Нет. Копирование идет с других книг.
Наверно проще разблокировать лист и удалить коды защиты, хотя и нежелательно…

[Казанский]

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

Sub yy()
Dim shA
If Application.CutCopyMode = 0 Then Exit Sub          'Условие - если вставка не активна, то оператор невыполним
  Set shA = ActiveSheet
  With Worksheets.Add
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    shA.Activate
    ActiveSheet.Unprotect                             'Снять защиту листа
    .UsedRange.Copy
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect                               'Установить защиту
    Application.DisplayAlerts = False
    .Delete
    Application.DisplayAlerts = True
  End With
End Sub

А можно и новую временную книгу создать.

[segail]

Казанский
Тоже вариант, попробую.
Благодарю за помощь.