Скрытие и отображение элементов ActiveX по условию

[Bozhkov]

Вставил в код листа и не работает У вас работает в моем файле этот код?

[Казанский]

Конечно! Вот файл с кодом.

[Bozhkov]

Ого! как фарматирование слетело А таки да, работает! Спасибо!

[Bozhkov]

Казанский, помогите пож. еще и скрыть поля объема дозаторов, привязав их к флажку.
Придумал что-то типа

Sub hideTextBox25()
    If [BI6] = "ИСТИНА" Then TextBox25.Visible = True Else TextBox25.Visible = False
    End If
End Sub

Но код не работает. А как привязать конкретно к флажку, не знаю.

[IgorGO]

а так:

Sub hideTextBox25()
    TextBox25.Visible = [BI6] 
End Sub

[Bozhkov]

Не хочет скрываться

[Bozhkov]

Так не работает и в новом документе

[IgorGO]

во-первых, это не только скрывает, но и показывает TextBox25
во-вторых, это hideTextBox25 хоть когда-нибудь выполняется? (хоть в старом, хоть в новом документе)

[Bozhkov]

А, я понял. Мне нужно, чтоб макрос работал автоматически а не от кнопки. Можете написать код?

[Bozhkov]

Вот отличный пример

Private Sub CheckBox1_Click()
    If CheckBox1 Then
        MsgBox "Включен"
        TextBox1.Enabled = False
    Else
        MsgBox "Выключен"
        TextBox1.Enabled = True
    End If
End Sub

Но, окошко с сообщением вылазит, а сам TextBox никак не реагирует (имена я конечно же поставил свои)