[Resolvido]Bloquear todos os campos de uma vez

Olá amigos, é possivel bloquear todos os campos de uma vez, sem ter que fazer individualmente?
Exemplo, abaixo bloqueia um campo.
Me.CodProduto.Enabled = False
Me.CodProduto.Locked = True

Quero algo assim
Me.AllCampos.Enabled = False
Me.AllCampos.Locked = True

Public Function Controles(strFrm As Form) As String
Dim ctl As Control

For Each ctl In strFrm.Controls
If InStr(1, ctl.Tag, "A") Then 'os campos que pretender tem de ter na linha Marca ou Tag a Letra A
ctl.Visible = True 'se desejar que fique visivel o campo
ctl.Locked = True 'se desejar bloquear o campo
ctl.Enabled = True 'se desejar ativar o campo
End If
Next ctl

End Function


chamar a função:

Private Sub Form_Open(Cancel As Integer)
Call Controles(Me)
End Sub

Valeus, vou testar e depois dou retorno

Olá, então estou tentando fazer como o código abaixo, tentei com o CASE e com o IF
tentei nos eventos Ao Abrir, Após atualizar, Ao carregar, Ao mover mouse e nada, fiz simples desse jeito para depois usar sua função.

Select Case cxBloqueado
Case Is = "SIM"
Me.Nome_Cliente22.Enabled = False
Me.Nome_Cliente22.Locked = True
Case Is = Null
Me.Nome_Cliente22.Enabled = True
Me.Nome_Cliente22.Locked = False
Exit Sub
End Select

tentei assim tb

'If Me.cxBloqueado.Value = "SIM" Then
'Me.Nome_Cliente22.Enabled = False
'Me.Nome_Cliente22.Locked = True
''BloqueiaCampo (A)
'ElseIf Me.cxBloqueado = Null Then
'Me.Nome_Cliente22.Enabled = True
'Me.Nome_Cliente22.Locked = False
'DesbloqueiaCampo (A)
'End If

CxBloqueado é uma caixa de texto com a fonte de registro Bloqueado, ao clicar fechar pedido, insere o SIM no campo Bloqueado.

O problema é que ao carregar o form a combo Nome_Cliente22 fica bloqueada direto, deveria se a cxBloqueado estar vazia ficar desbloqueada

Olá pessoal, só para dar uma satisfação, vou resolver assim o meu problema:

Na adição de novos registros a consulta irá filtrar registros que tenham o SIM no campo bloqueado, assim só poderei ver o registro que não estiver completado e que não foi clicado o botão FECHAR PEDIDO.

Irei criar uma cópia do mesmo form e da consulta e tirar o filtro do SIM no bloqueado e usar a função do Ricardo para bloquear os campos.

Valeus pelas ajudas!!!