Как сделать по умолчанию неактивный checkbox?

[Lamo]

Вопрос, собственно в заголовке. Как сделать по умолчанию неактивный checkbox?

[DiemonStar]

У формы есть событие Initialization и в нем применяются начальные установки объектов. Для книги лучше использовать событие Open.

[Lamo]

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

Private Sub CheckBox9_Click()
If ActiveCell.Column = 16 Then
CheckBox9.Enabled = False
Else
CheckBox9.Enabled = True
End If
End Sub

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

[DiemonStar]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  CheckBox9.Enabled = (ActiveCell.Column <> "НомерСтолбцаСоответствующегоЧекбокса")
End Sub

где вместо "НомерСтолбцаСоответствующегоЧекбок са" подставляете своё значение.

[IgorGO]

Lamo, Вы затеяли нечто, что лишено логики.
установив CheckBox9.Enabled = False, процедура Private Sub CheckBox9_Click() уже никогда не сработает, ничего не проверит и не переназначит, потому что чекбокс больше недоступен (неактивен).
разрешить/запретить использование чекбокса видимо надо по событию листа
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
...
End Sub

[Lamo]

[QUOTE=IgorGO;1257222]Lamo, Вы затеяли нечто, что лишено логики.
установив CheckBox9.Enabled = False, процедура Private Sub CheckBox9_Click() уже никогда не сработает, ничего не проверит и не переназначит, потому что чекбокс больше недоступен (неактивен).
разрешить/запретить использование чекбокса видимо надо по событию листа


Да, есть такое))). Нельзя ли поподробнее расписать про:

Сообщение от IgorGO

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
...
End Sub

Просто решил ускорить работу, позавчера начал изучать VBA. Не успел еще выучить синтаксис.))

[IgorGO]

позавчера начал изучать VBA

это кое-что обьясняет

номеру столбца, к которому привязан чекбокс

что Вы подразумеваете под этой фразой?
это столбец, в котором расположен левый край чекбокса
или
номер столбца ячейки, в которую чекбокс передает свое состояние?

как пользоваться Private Sub Worksheet_SelectionChange, вам показал DiemonStar, в его примере замените "НомерСтолбцаСоответствующегоЧекбок са" на необхомую переменную и все заработает.

[Lamo]

У меня чекбокс находится в юзерформе, он должен быть привязан к столбцу, в котором будем производиться поиск по значению. (Это уже другая тема.)
Если значение активной ячейки совпадает с номером столбца, то чекбокс должен быть выключен в форме юзера если мы вызвали окно макроса.
То есть блокируем столбец для поиска, если столбец и активная ячейка совпадают по столбцу.



По коду DiemonStar-а

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckBox9.Enabled = (ActiveCell.Column <> "НомерСтолбцаСоответствующегоЧекбок са")
End Sub

Чекбокс все равно активен при вызове юзерформы, то есть я могу выставить галочку. После выставления галочки, чекбокс неактивен.

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

Когда положение столбца активной ячейки не равно столбцу чекбокса:



Когда положение столбца активной ячейки равно столбцу чекбокса:



Вот, как такое можно реализовать?

[doober]

Проверяется столбец 4

Private Sub UserForm_Activate()
CheckBox1.Enabled = ActiveCell.Column <> 4
End Sub

[Lamo]

Сообщение от doober

Проверяется столбец 4

Private Sub UserForm_Activate()
CheckBox1.Enabled = ActiveCell.Column <> 4
End Sub

Спасибо, doober, работает. IgorGO и DiemonStar также большое спасибо за помощь!

Заделал следующим образом:

Private Sub UserForm_Activate()
CheckBox1.Enabled = ActiveCell.Column <> 2
CheckBox2.Enabled = ActiveCell.Column <> 3
CheckBox3.Enabled = ActiveCell.Column <> 4
CheckBox4.Enabled = ActiveCell.Column <> 5
CheckBox5.Enabled = ActiveCell.Column <> 13
CheckBox6.Enabled = ActiveCell.Column <> 14
CheckBox7.Enabled = ActiveCell.Column <> 21
CheckBox8.Enabled = ActiveCell.Column <> 15
CheckBox9.Enabled = ActiveCell.Column <> 16
CheckBox10.Enabled = ActiveCell.Column <> 19
End Sub

Теперь надо прикрутить к каждому чекбоксу свой столбец. Но это уже совсем другая история...