Неактивные листбоксы

[vadzik]

Люди,
помогите исправить файлик (приаттачен).... уже всю голову сломал

В сей форме CheckBoxes открывают новые боксы. Первые несколько работают замечательно, после двух-трех кликов - листбоксы перестают быть активными. То есть кликаю по ним сколько угодно, а они не работают.

Странно, но спасает в этом случае переход на соседний Лист (Options) и обратно - тогда опять боксы включаются.

Спасибо.

[pashulka]

XL97 - вышеописанных проблем не наблюдается.

[vadzik]

Пардон, слишком много обрезал. Высылаю оригинал.

[pashulka]

Private Sub CheckBox_CC_Click()
    AddButtonCC.Visible = CheckBox_CC.Value
    DeleteButtonCC.Visible = CheckBox_CC.Value
    ListBox_CC.Enabled = CheckBox_CC.Value
    ListBox_CC2.Visible = CheckBox_CC.Value
End Sub

[vadzik]

Так лучше, но к сожалению не помогло.

[pashulka]

Если Вы вообще не хотите блокировать свои списки, то уберите инструкции, в которых используется свойство Enabled.

[vadzik]

Спасибо всем. Наводящие советы очень помогли.
Форма работает замечательно.
Помогите теперь, как красивее сохранить данные при выходе?
(Если войти и выйти данные обнуляются).

прикрепил исправленный файлик ниже.

[pashulka]

Если под фривольным термином войти и выйти Вы подразумеваете закрытие и повторное открытие рабочей книги, то ситуация с исчезновением данных вполне нормальна. Но если такой расклад Вас не устраивает, то можно либо воспользоваться родными элементами управления : Вид-Панели инструментов-Формы (правда, в отличии от ActiveX, эти элементы отличаются крайней скупостью на предмет наличия изменяемых свойств) либо, например, при закрытии книги сохранять значения всех элементов списка, где-нибудь в ячейках рабочего листа (возможно скрытого), а при открытии этой книги заполнять нужный список сохранёнными значениями.

[vadzik]

Дело двинулось!

добавил лист storage

сохраняю так:

Private Sub AddButtonGML_Click()
Dim v&, w&
For v = 0 To Me.ListBoxGML.ListCount - 1
If Me.ListBoxGML.Selected(v) Then
Worksheets("storage").Cells(w + 1, 1) = Me.ListBoxGML.List(v)
w = w + 1
End If
Next v
End Sub

в свойствах второго листбокса прописал listfillrange. Данные замечательно показываются и сохраняются во втором листбоксе!

еперь делаю удаление

Private Sub DeleteButtonGML_Click()
Dim v1&, w1&
For v1 = 0 To Me.ListBoxGMLX.ListCount - 1
If Me.ListBoxGMLX.Selected(v1) Then
Worksheets("storage").Cells(w1 + 1, 1).Delete
w1 = w1 + 1
End If
Next v1
End Sub

Проблема, что при удалении ячеек автоматически сдвигается свойство listfillrange.

Помогите, как его можно закрепить?

[pashulka]

Я предлагал всего один раз, перед закрытием книги, сохранить нужные данные и один раз, после открытия книги, заполнить нужный список (см. пример)