Защита всех листов книги, но редактирование определённых столбцов или строк - VBA

Формулировка задачи:

Добрый день. Защищаю всю книгу с вводом пароля.

                    Листинг программы
                
Private Sub Workbook_Open()
       Dim wsSh As Object
    For Each wsSh In Me.Sheets
        Protect_for_User_Non_for_VBA wsSh
    Next wsSh
End Sub
 
Sub Protect_for_User_Non_for_VBA(wsSh As Worksheet)
 
    wsSh.protect Password:="1111", UserInterfaceOnly:=True
 
End Sub

Но есть одна ячейка на 12 листе с именем FG, в которую нужно вносить изменения, для того, чтобы считали формулы в соседних ячейках. Не могу понять, как защищая всю книгу, оставить 1 столбец для редактирования.

                    Листинг программы
                
    Dim wsSh As Object
    For Each wsSh In Me.Sheets
    If wsSh.Name <> "Катуш" Then
        Protect_for_User_Non_for_VBA wsSh
 
        End If
    Next wsSh

Можно скажем используя имя листа исключит его из защиты, затем поставить её вручную исключая нужный столбец, но хотелось бы сделать через скрипт. Люди добрые подскажите как?

Решение задачи: «Защита всех листов книги, но редактирование определённых столбцов или строк»

textual
                            Листинг программы 
                        
Sheets("Катуш").Columns("F:F").Locked = False
'или
Sheets("Катуш").Range("ИмяДиапазона").Locked = False