Ошибка & H8000FFFF (-2147418113) при применении заблокированной недвижимости к списку

Question

Я пишу заявку на VBA. Получается, что у меня есть поле со списком, что среди других вещей, когда он изменяет это разблокирует ListBox внутри UserForm называется Cotizaciones_y_obras:

Cotizaciones_y_obras.ListBox3.Locked = False 

Проблема заключается в том, когда я запустить приложение VBA и выше предложение выполняется Ошибка & H8000FFFF (-2147418113) появляется вдоль еще 6 сообщений об ошибках, и Excel не позволяет ничего сохранять. Я должен перезагружать Excel каждый раз, когда это происходит.

Я просмотрел некоторые форумы, на которых люди рекомендуют отключать все надстройки, которые у вас есть. У меня нет ни одного из них, и, похоже, проблема в Excel 2k10 и Excel 2013.

Похоже, что это связано с многостраничными в пользовательских формах и некоторых свойствах. У этого лица была аналогичная проблема in this post. Процедура, которая срабатывает при изменении Combo Box является следующее:

Private Sub Estatus_Combo_box_Change() 
     With Sheets("Contadores_Folios").Range("B2") 
     If Sheets("Banderas Sistema").Range("A2").Value <> "E" Then 
     Folio_Cotizacion.Text = IIf(Estatus_Combo_box.Text = "Esperando  Aprobacion", "CO" + CStr(.[B2] + 1), "") 
     Folio_Obra.Text = IIf(Estatus_Combo_box.Text = "Esperando Aprobacion", "", "OB" + CStr(.[C2] + 1)) 
     End If 
End With 

    call bloquear_lista_se 
    Cotizaciones_y_obras.ListBox3.Locked = False 

End Sub 

Большое спасибо!

Answer 1

Я не вижу многостраничных ... ??

Вы могли бы упростить код, чтобы сделать отладку несколько проще сделать:

Private Sub Estatus_Combo_box_Change() 
With Sheets("Contadores_Folios").Range("B2").Value 
    If Sheets("Banderas Sistema").Range("A2").Value <> "E" Then 
    Folio_Cotizacion.Text = IIf(Estatus_Combo_box.Text = "Esperando Aprobacion", "CO" + CStr(.[B2] + 1), "") 
    Folio_Obra.Text = IIf(Estatus_Combo_box.Text = "Esperando Aprobacion", "", "OB" + CStr(.[C2] + 1)) 
    End If 
End With 

bloquear_lista_se 
ListBox3.Locked = False 
End Sub