Como desativar a edição numa caixa de texto para impedir que o utilizador introduza dados no Excel?
Este artigo explica como desativar a edição numa caixa de texto (controlo ActiveX) ou em várias caixas de texto (controlos ActiveX), impedindo que o utilizador introduza dados no Excel.
Desativar a edição numa caixa de texto alterando as suas propriedades
Desativar a edição em várias caixas de texto com código VBA
Desativar a edição numa caixa de texto alterando as suas propriedades
Esta secção mostra-lhe como desativar a edição de uma caixa de texto, alterando as suas propriedades. Siga os passos seguintes.
1. Ative o Modo de Estrutura clicando em Programador > Modo de Estrutura. Veja a imagem:
2. Clique com o botão direito na caixa de texto e selecione Propriedades no menu de contexto, conforme ilustrado na imagem seguinte.
3. Na caixa de diálogo Propriedades que se abre, selecione Falso na caixa Ativado e, em seguida, feche a caixa de diálogo Propriedades. Veja a imagem:
Agora, a caixa de texto selecionada está cinzenta e não pode ser editada.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Desativar a edição em várias caixas de texto com código VBA
Se pretender desativar a edição em várias caixas de texto numa folha de cálculo, utilize o código VBA indicado abaixo.
1. Na folha de cálculo que contém as caixas de verificação cuja edição pretende desativar, clique em Programador > Inserir > Caixa de Seleção (Controle ActiveX) para inserir uma caixa de verificação na folha de cálculo. Veja a imagem:
2. Clique com o botão direito na caixa de verificação e selecione Ver Código no menu de contexto. Veja a imagem:
3. Na janela do Microsoft Visual Basic para Aplicações, substitua o código original pelo código VBA apresentado a seguir.
Código VBA: Desativar a edição em várias caixas de texto
Private Sub CheckBox1_Click()
Dim xTextBox As OLEObject
Dim xFlag As Boolean
Dim I As Long
Dim xArr
xArr = Array("TextBox1", "TextBox2", "TextBox3")
xFlag = True
If Me.CheckBox1 Then xFlag = False
For Each xTextBox In ActiveSheet.OLEObjects
If TypeName(xTextBox.Object) = "TextBox" Then
For I = 0 To UBound(xArr)
If xTextBox.Name = xArr(I) Then
xTextBox.Enabled = xFlag
End If
Next
End If
Next
End SubNotas:
1. No código, CheckBox1 é o nome da caixa de verificação que inseriu. Já TextBox1, TextBox2 e TextBox3 são as caixas de texto cuja edição pretende desativar na folha de cálculo. Altere estes nomes conforme necessário.
2. Para desativar a edição em mais caixas de texto, basta adicionar o nome da caixa de texto entre aspas na linha xArr = Array("TextBox1", "TextBox2", "TextBox3").
4. Em seguida, guarde e feche o código, desative o Modo de Estrutura e, a partir desse momento, ao marcar a caixa de verificação, todas as caixas de texto especificadas deixarão de poder ser editadas na folha de cálculo. Veja a imagem:
Nota: ao desmarcar a caixa de verificação, as caixas de texto voltam a poder ser editadas.
Artigos relacionados:
- Como selecionar automaticamente o texto de uma caixa de texto quando esta é selecionada no Excel?
- Como ativar o preenchimento automático de uma caixa de texto enquanto escreve no Excel?
- Como limpar automaticamente o conteúdo de uma caixa de texto ao clicar nela no Excel?
- Como concatenar textos de várias células numa caixa de texto no Excel?
- Como formatar uma caixa de texto como percentagem no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos