Talvez seja possível mas para isto terá que postar seu exemplo.

Gesus,

Bom Dia!

Acho que é possível sim. Todavia, não consegui entender sua demanda de maneira nenhuma...!!

Por gentileza, explique melhor. O ideal é anexar um arquivo exemplo (compactado) aqui mesmo no fórum, demonstrando, inclusive, como deverá ser o resultado.

Com certeza é possível, mas como os colegas disseram o ideal é um modelo e detalhar melhor, e se entendi seria mais ou menos assim :

Ressaltando que esta rotina deve ser colada no no Formulário e irá ser executada quando abrir o mesmo verificando o valor em "B1" e se for "Inativo" definirá a propriedade Enabled para Falso do Combobox cujo o nome está na Variável svlrA1, então como citou 30 Combobox, se a intenção for verificar cada um, temos de construir um LOOP, e para isto o ideal é termos o modelo.

Private Sub UserForm_Initialize()

    Dim svlrA1 'Range em A1
    Dim svlrB1 'Range em B1
    
    svlrA1 = [A1].Value 'Valor em A1 = ComboBox1
    svlrB1 = [B1].Value 'Valor em B1 = Inativo
    
    If svlrB1 = "Inativo" Then
        Me.Controls(svlrA1).Enabled = False
    Else
        Me.Controls(svlrA1).Enabled = True
    End If
    
End Sub

Obrigado, Consegui a partir do seu código, obrigado!
(Usei

x = 1
Do While x <= 31
Me.Controls("CheckBox" & x).Value = False
x = x + 1
Loop

Usei o (Controls) conforme seu código, nossa evitou eu ficar repetindo varios códigos, muito obrigado!
São 31 para limpar, em cada formulario!

Presto serviço para uma instituição financeira e não posso disponibilizar, mas irei fazer um arquivo aqui como modelo sem dados reais caso alguem precise!

Obrigado pela ajuda pessoal Abcs

Ainda bem que o código serviu de base, pois você começou se referindo a controle ComboBox, valores na planilha e finalizou com um Loop em 31 controles do tipo CheckBox onde defini todos como False, ou seja não vi a relação, mas o importante é que deu certo e resolveu.

[]s