Excel bloquear textbox de userform

jeanvet · 17 de maio de 2016

ola, no meu formulário estou tentando bloquear alguns campos caso a pessoa desmarque a caixa de seleção ao lado da txtbox, ficaria assim:

[ ] caixa de texto bloqueada, não é possível escrever

[x] caixa de texto desbloqueada, pode inserir texto

atualmente estou tentando o atual código mas não funcionou

Private Sub UserForm_Initialize()
TBdata = Date
'If Me.ObCanino = True Then
'ComboBox1.RowSource = "Veterinarios"
'End If
CbVeterinario.RowSource = "Veterinarios"

If Me.CheckALT = True Then
    tbalt.Locked = False
ElseIf Me.CheckALT = True Then
    tbalt.Locked = True
End If

If Me.CheckFosfatase = True Then
    tbgpt.Locked = False
ElseIf Me.CheckFosfatase = True Then
    tbgpt.Locked = True
End If

If Me.CheckCreatinina = True Then
    tbcreatinina.Locked = False
ElseIf Me.CheckCreatinina = True Then
    tbcreatinina.Locked = True
End If

If Me.CheckUreia = True Then
    tbureia.Locked = False
ElseIf Me.CheckUreia = True Then
    tbureia.Locked = True
End If

If Me.CheckGlicemia = True Then
    tbglicemia.Locked = False
ElseIf Me.CheckGlicemia = True Then
    tbglicemia.Locked = True
End If

agradeço maisessa ajuda.

Preencher Hemograma V4.6beta.xlsm

CasaDoHardware · 17 de maio de 2016

Fiz a primeira check box basta replicar para as outras

Private Sub CheckALT_Change()

If CheckALT.Value = True Then
tbalt.Enabled = True
Else
tbalt.Enabled = False
End If

End Sub

Preencher Hemograma V4.6beta.xlsm

jeanvet · 17 de maio de 2016

amigo @CasaDoHardware, muito obrigado, você me ajuda muito. consegui aplicar nos outros botões menos no de glicemia, pois quero manter ela por padrão desativada, então só está funcionando se eu ativo ela e depois desativo a caixa, se acaba de entrar e ela está desmarcada, continua sendo possível adicionar texto nela.

Preencher Hemograma V4.6.1beta.xlsm