VBA для копирования данных из одного защищенного столбца в другой

Question

В книге, которую я использую в Excel, есть некоторые защищенные ячейки. Я не могу их разблокировать. Мне нужно перенести данные из одного столбца, который заблокирован, в другой столбец, который также заблокирован. Я могу сделать это вручную, введя данные, но книга не позволит мне копировать/вставлять (используя VBA или обычный способ) данные в защищенный столбец. Ниже приведены примеры кода, который я пробовал, без везения.

Возможно ли это без разблокировки книги?

Пример 1:

Sub Requote() 

Dim JDsheet As Worksheet 
Set JDsheet = ActiveWorkbook.ActiveSheet 

JDsheet.Range("Q26:R41").Copy JDsheet.Range("S26:T41") 

Пример 2:

Sub Requote() 

Dim JDsheet As Worksheet 
Set JDsheet = ActiveWorkbook.ActiveSheet 

JDsheet.Range("Q26:R41") = JDsheet.Range("S26:T41").Values 

Примечание: Колонки я работаю с состоят из слившихся клеток.

Edit: Комментарий от @Raystafarian привел меня к столбу here что позволило мне открыть защищенный лист.

Я оставлю вопрос открытым для всех, у кого есть решение, кроме взлома защищенной книги.

Answer 1

Попробуйте следующее:

• в (новом) или открытого листа, который не защищен, извлечения значений, просто передав в защищенные ячейки. Это работает для меня.

например. "= Sheet1! C3" в незащищенной ячейке, где ячейка C3 в Sheet1 является защищенной ячейкой. Вы можете перетащить формулу оттуда или использовать VBA для копирования формулы в большом диапазоне.

После получения всех значений просто скопируйте свою формулу как простые значения.

EDIT: если у вас нет другого выбора, кроме как вставить значения в другой защищенный столбец, тогда ответ не боюсь.