Desabilitar vários checkbox(s) de uma vez

[giancarlo.oliveira]

Caros,

Tenho um Form com diversos frames e dentro desses frames diversos checkbox(s).

É possivel através de algum código VBA, bloquear todos os checkbox(s) dentro de um

Frame, sem que seja através da propriedade enabled de cada checkbox ?

 

Hoje estou usando

checkbox1.enabled=false ou checkbox2.enabled=false objeto por objeto.

 

Como meus checkbox(s) estão agupados em frames, me questionei se

seria possivel desabilitar todos os checkbox(s) de um frame de uma só vez,

algo como ao "desligar" ou "ligar" o frame, os checkbox(s) contidos se

comportem da mesma forma.

 

E possivel algo assim ?

Agradeço qualquer sugestão.

 

[Basole]

Para bloquear todos e por atacado, segue um exemplo:

 

Dim ctrl As Control
 
For Each ctrl In Me.Frame1.Controls
    If TypeName(ctrl) = "CheckBox" Then
        ctrl.Locked = True 'bloquea
        ctrl.Value = False ' limpa
    End If
Next ctrl

 

[giancarlo.oliveira]

Show @Basole,

 

Estou com a mão na massa, já vou tentar aplicar e digo como ficou.

Super obrigado pela sugestão.

Já dou um retorno

adicionado 42 minutos depois

@Basole  Você mandou bem de novo, funcionou e já estou mega feliz,

Só não consegui desfazer o bloqueio,

tentei inverter "ctrl.Locked = True" para "ctrl.Locked = False"

tentei "ctrl.Unlocked = True", mas o VBA disse que não comandos permitidos.

 

Desculpe, sei que a duvida deve ser besta...rss Mas não consigo inverter o

bloqueio.

 

 

 

[giancarlo.oliveira]

@Basole Deu certo consegui inverter o bloqueio, usando a propriedade enabled do frame.

Obrigado ao quadrado..rs Seu exemplo me ensinou a usar melhor dois métodos para bloqueio de objetos.

 

Fique com Deus e obrigado por mais essa.

Giancarlo