Este fórum está sendo desativado

[WarleySCCCO]

Ola Gurus do Excel,

Novamente por aqui precisando de vcs. Estou elaborando uma projeto para auxiliar nas atividades aqui na unidade de trabalho a qual faço parte Secretária de Segurança.

Então:
Meu projeto já esta cadastrando, e consultando. Agora preciso alterar um cadastro. Porem gostaria de ao clicar no botão SIM algumas TextBox deixasse de ter Locked True e voltasse ao modo False, para que eu pudesse alterar os dados. Logo após eu clicar SALVAR e efetivar a alteração.

Segue imagens para entender.:
https://uploaddeimagens.com.br/imagens/KoFYQKE

Código: Selecionar todos

Private Sub BtnCdesejoal_Click()


TxtCseisaida.Locked = True



End Sub

Segue a minha planilha em anexo.

[Basole]

Segue sugestao faz uma varredura nos textbox e combobox no formulario

Código: Selecionar todos

Private Sub BtnCdesejoal_Click()

Dim ctrl As Control

For Each ctrl In Me.Frame9.Controls
        
    If TypeName(ctrl) = "TextBox" Then
           ctrl.Locked = False
    End If
    
    If TypeName(ctrl) = "ComboBox" Then
          ctrl.Locked = False
    End If
Next ctrl

End Sub

[WarleySCCCO]

Bom dia @Basole

Rodou perfeito .

Para não tirar o Locker TRUE de Todos vou separar os TextBox e os ComboBox que preciso serem alterados em outro Frame, vai da certo. Outro detalhe, peguei o seu código e coloquei mais uma pitada, a cor do Fundo "Alterar para Branco" e deu certo.

Segue se alguém precisar.

Código: Selecionar todos

Private Sub BtnCdesejoal_Click()

Dim ctrl As Control

For Each ctrl In Me.FrCresultado.Controls
       
      If TypeName(ctrl) = "TextBox" Then
           ctrl.Locked = False
           ctrl.BackColor = &HFFFFFF
    End If
   
    If TypeName(ctrl) = "ComboBox" Then
          ctrl.Locked = False
          ctrl.BackColor = &HFFFFFF
    End If

Next ctrl

End Sub