Habilitando cx de combinação no módulo VBA

Seguinte pessoal,

Sou novato em vba e fiz um sistema de login/senha/grupo no meu BD. Fiz um formulário com caixas de texto, de combinação e seleção. Acontece que não quero que determinado grupo de usuários utilizem alguns campos desses, então fiz o seguinte:

bloquei o campo e coloque o seguinte módulo:

Private Sub PROCESSO_Click()

If getGrupoUsuarioAtual = "Administradores" Then

PROCESSO.Locked = False

Else
MsgBox "Acesso permitido somente a pessoas autorizadas!", _
vbExclamation, "Acesso Negado"
End If

End Sub

Na caixa de texto funcionou perfeitamente. Mas nas caixas de combinação e seleção elas continuam bloqueadas tanto para os "Administradores" quanto para os outros grupos, além de não aparecer a msg de "Acesso Negado".

Alguém poderia me ajudar?

Obrigado

Boa noite, e bem-vindo ao fórum
Reveja o código. Loked=False significa que não fica bloqueado
Se pretende bloquear, deve ser Loked=True

Alexandre,

Obrigado pela resposta mas não resolve. O campo continua bloqueado para o grupo administrador e os outros. Isso eu com o campo bloqueado nas propriedades. Se eu desbloquear nas propriedades e tanto com false ou true no código o campo fica desbloqueado para todos.

O estranho é que nas caixas de textos o código + o bloqueio nas propriedades funciona perfeitamente!

Bom dia,
Só vendo o caso

Bom dia a todos, sem prejuízo ao tópico, apenas um pitaquinho.


If getGrupoUsuarioAtual = "Administradores" Then

PROCESSO.Locked = False
me.suacombobox.enable=true

If getGrupoUsuarioAtual = "Administradores" Then

PROCESSO.Locked = False
Me.PROCESSO.Enabled = True

Não funciona também!

Tem coisas que deixam a gente bem irritado né?? Já tentei de tudo. Bloqueando, desbloqueando. Ativando, desativando e nada.

Daqui a pouco acabo com as cxs de combinação e seleção e coloco tudo cx de texto. Ai funciona!!

Boa tarde,
Há situações que as caixas de combinação são apropriadas.
Disponibilize para se ver.
Será que tem nomes iguais (campo e controlo, etc.?)