Excel com VBA

Habilitando e desabilitando caixa de texto dentro da planilha.

Esta é uma dica de programação.

1)Em qualquer planilha de uma pasta do Excel crie uma caixa de texto utilizando a barra de ferramentas "Caixa de Ferramentas de Controle" (pode ser outro controle também);
2)Para escrever algo dentro da caixa de texto, você deve estar trabalhando no modo de edição e não no modo de design (veja o primeiro botão da Caixa de Ferramentas de Controle);
3)Para evitar que outro usuário ou você mesmo venha a modificar o texto escrito da caixa de texto, é necessário desabilitá-la. Existe duas formas de desabilitar um elemento de controle:
Primeira - utilizando a propriedade "Enable" do controle.
a)Alterne o trabalho com a caixa de texto para o modo de design (clique no botão modo de design na Caixa de Ferramentas de Controle);
b)Clique com o botão direito do mouse na caixa de texto e depois selecione com o botão esquerdo a opção Propriedades. Deverá aparecer uma janela com as propriedades da caixa de texto;
c)Procure a propriedade Enable e altere o valor para falso (false em inglês).
Segunda - utilizando eventos através de um outro controle, por exemplo dois botões de comando.
a)Crie dois botões de comando através da Caixa de Ferramentas de Controle;
b)Clique com o botão direito em um dos botões e selecione Exibir Código (você deve estar trabalhando no modo de design);
c)Escreva o código abaixo que é o evento que acontecerá quando o usuário clicar no botão:
Private Sub CommandButton1_Click()
TextBox1.Enabled = False
End Sub
TextBox1 é o nome da caixa de texto e que aparece nas propriedades do controle, ou seja, se o nome do controle não for esse, é só verificar nas propriedades.
d)Clique com o botão direito do mouse no outro botão de comando e repita as operações b e c, digitando o seguinte código:
Private Sub CommandButton2_Click()
TextBox1.Enabled = True
End Sub
Para testar:
a)Retorne ao Excel;
b)Volte ao modo de edição;
c)Clique nos botões e verifique que a caixa de texto fica habilitada e/ou desabilitada.