iniciar formulário com todas as caixas de texto bloqueadas

ola,


qual o comando para o vba verificar o que é caixa de texto e iniciar o form com todas elas bloqueadas, com isso eu nao preciso programar uma a uma, pois são muitas

grato

Boa tarde,

No evento Ao Abrir do formulário coloque:

Código:

    Dim ctl As Control
   
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
            ctl.Enabled = False
        End If
    Next

Abraço.