Dúvidas sobre cálculos, funções simples e aninhadas, fórmulas matriciais, etc.
Por WarleySCCCO 26 Mar 2020 às 17:13
Membro 1 Estrela
Mensagens: 14
Reputação: 1
#53233
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 todosPrivate Sub BtnCdesejoal_Click()


TxtCseisaida.Locked = True



End Sub




Segue a minha planilha em anexo.
Apenas usuários registrados podem ver ou baixar anexos.
Avatar do usuário
Por Basole 26 Mar 2020 às 20:03
Membro 1 Estrela
Mensagens: 102
Reputação: 47
#53239
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

Por WarleySCCCO 27 Mar 2020 às 11:31
Membro 1 Estrela
Mensagens: 14
Reputação: 1
#53262
Bom dia @Basole

Rodou perfeito :D .

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 todosPrivate 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