Private Sub Workbook_Open()

  If ActiveSheet.Name = "КА" Then

    Call ProtectSomeColumnsOnNecessarity

  End If

End Sub

Public Sub ProtectSomeColumnsOnNecessarity()

  PswdToProtect = "M@ke_protect@ble"

  

  Dim KA_Sh As Worksheet

  Set KA_Sh = ActiveSheet

  

  ManagerName = Environ("USERNAME")

  If ManagerName <> "User1" And ManagerName <> "User2" Then

    ' блокируем столбец "Предоставление документов" - для этого делается следующее:

    '   1. предварительно в других столбцах при форматировании ячеек на вкладке Protection снимается св-во Locked

    '   2. лист блокируется, при этом можно выполнять все операции, и лишь столбец блокированных ячеек будет защищен

    On Error GoTo FinishSubHndl

    KA_Sh.Protect Password:=PswdToProtect, _

          AllowFormattingCells:=True, _

          AllowFormattingColumns:=True, _

          AllowFormattingRows:=True, _

          AllowInsertingColumns:=True, _

          AllowInsertingRows:=True, _

          AllowInsertingHyperlinks:=True, _

          AllowDeletingRows:=True, _

          AllowSorting:=True, _

          AllowFiltering:=True, _

          AllowUsingPivotTables:=True

  Else

    ' Для User1 и User2 ограничений на ввод информации нет

    KA_Sh.Unprotect Password:=PswdToProtect

  End If

FinishSubHndl:

          Exit Sub

End Sub