Фиксирование столбца у вертикальной границы закрепления области

[segail]

Здравствуйте. Необходимо дополнить код для кнопки CommandButton4.
При выборе месяца в ComboBox4 и клике по кнопке CommandButton4 идет открытие диапазона месяца.
Необходимо чтобы после выбора числа в ComboBox3 на выбранный месяц и клике по кнопке столбец с данной датой фиксировался у вертикальной границы закрепления области.

[EducatedFool]

А что мешает добавить в код такую строчку?

ActiveWindow.ScrollColumn = Val(ComboBox3) + 2

PS: Процедуру

Private Sub ComboBox3_Change()
    If ComboBox4.Value = "январь" Then Label2.Caption = "01"
    If ComboBox4.Value = "февраль" Then Label2.Caption = "02"
    If ComboBox4.Value = "март" Then Label2.Caption = "03"
    If ComboBox4.Value = "апрель" Then Label2.Caption = "04"
    If ComboBox4.Value = "май" Then Label2.Caption = "05"
    If ComboBox4.Value = "июнь" Then Label2.Caption = "06"
    If ComboBox4.Value = "июль" Then Label2.Caption = "07"
    If ComboBox4.Value = "август" Then Label2.Caption = "08"
    If ComboBox4.Value = "сентябрь" Then Label2.Caption = "09"
    If ComboBox4.Value = "октябрь" Then Label2.Caption = "10"
    If ComboBox4.Value = "ноябрь" Then Label2.Caption = "11"
    If ComboBox4.Value = "декабрь" Then Label2.Caption = "12"
End Sub

можно заменить одной строкой:

Private Sub ComboBox3_Change()
    Label2.Caption = Format(Month(CDate("1 " & ComboBox4)), "00")
End Sub

[segail]

Если бы я знал эту процедуру. Спасибо.

[segail]

Здравствуйте. Возникла необходимость продолжить код.

После выполнения кода, кнопкой CommandButton4, происходит защита листа паролем
Worksheets("Расход").Protect Password:="1111"
Необходимо продолжить код:
Разблокировать нижнюю ячейку после даты, фиксированную у вертикальной границы закрепления области.
Разблокировать столбец со строки 40 под датой, фиксированного у вертикальной границы закрепления области.
Заблокировать закрытие книги крестом.
Во время Initialize формы, разблокировать закрытие книги крестом.

Private Sub CommandButton4_Click()
    
    If ComboBox3.Value = "м-ц" Then
   
    MsgBox "Выберите число месяца", 64, "Информационное сообщение"
    
    Else
    
    Dim i As Integer
    
    For i = 1 To 38
        
        If ComboBox4.Text = Cells(i, 35).Text Then 'Поиск ячейки, по совпвдению текстов
                    
        Range("A3:A38").EntireRow.Hidden = True 'Скрыть диапазон
        ActiveWindow.ScrollRow = 3 'Вверх
        Rows(i & ":" & i + 2).Hidden = False ' Открытие диапазона
        ActiveWindow.ScrollColumn = Val(ComboBox3) + 2 'Фиксирование столбца у вертикальной границы закрепления области
        
        'Код  разблокировать нужные ячейки
        Worksheets("Расход").Protect Password:="1111" 'Защитить лист паролем
        'Заблокировать закрытие книги крестом.
        Unload Me 'Закрыть фориу
        
        End If
    Next
    End If
End Sub

[segail]

Здравствуйте.

После выполнения кода:

ActiveWindow.ScrollColumn = Val(ComboBox3) + 2 'Фиксирование столбца у вертикальной границы закрепления области

Происходит защита листа:

Worksheets("Расход").Protect Password:="1234" 'Защитить лист паролем

Но если произвести двойной клик по защищенному листу, то фиксированный столбец возвращается в исходное положение (то есть восстанавливается первоначальное горизонтальное положение закрепление области)
Как это избежать?

[segail]

..............