Excel bloquear textbox de userform

[jeanvet]

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]

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]

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

[CasaDoHardware]

Cole esse codigo no envento inizialize do formulario

 

 

If CBglicemia.Value = True Then
TBglicemia.Enabled = True
Else
TBglicemia.Enabled = False
End If

[jeanvet]

funcionou. obrigado *-* graças a voce meu projeto está quase pronto.