Скрыть другой диапазон столбцов с помощью пароля при создании защищенной копии

#excel #vba

Вопрос:

Я должен создать защищенный лист из мастер-excel. Но теперь, прежде чем поделиться защищенным листом со сторонним пользователем, я должен скрыть несколько столбцов [Столбец 1 (A), столбец 2 (B) и все, начиная с столбца 43-92 (от AQ до CN)] в сгенерированном защищенном листе, и для этого должен быть включен пароль. то есть люди не должны иметь возможности раскрывать столбцы. Поэтому, когда я получу от них файл с обновлениями, я смогу открыть эти листы, используя пароль. Как я могу это сделать, гарантируя, что вышеуказанные столбцы будут скрыты паролем при создании защищенного листа? Мои попытки ниже.

 If Sheet2.Cells(1, i).Value = "Exclusions" Then 
    Sheet2.Columns(i).Hidden = True 
End If
 

Повторите вышесказанное для всех заголовков столбцов. Это чрезвычайно трудоемко и длительно.

Далее я нашел кое-что в Интернете, но это не работало для меня, так как я создавал Суб в суб.

 Sub HideCols() 
    For i = 1 To ActiveSheet.UsedRange.Columns.Count 
        If Lcase (Cells(2, i).Value) = "Exclusions" Then Columns(i).Hidden = True 
    Next 
End Sub