Como bloquear ou proteger células após a introdução ou entrada de dados no Excel?
Suponha que tem uma folha de cálculo em que apenas uma determinada gama de células em branco necessita de introdução de dados; após concluir a entrada, pretende que essas células sejam bloqueadas automaticamente para evitar alterações futuras. Como pode conseguir isto? Este artigo pode ajudá-lo.
Bloquear ou proteger células após entrada de dados com código VBA
Bloquear ou proteger células após entrada de dados com código VBA
Por exemplo, a gama específica de células em branco é A1:F8. Siga os passos abaixo para bloquear essas células após a introdução de dados no Excel.
1. Desbloqueie primeiro esta gama selecionando as células, clicando com o botão direito do rato e escolhendo Definir formato de célula no menu de contexto; na caixa de diálogo Definir formato de célula, desmarque a caixa Bloqueada no separador Proteção e, por fim, clique no botão OK. Veja a captura de ecrã:
2. Clique em Rever > Proteger Folha e especifique uma palavra-passe para proteger esta folha de cálculo.
3. Clique com o botão direito do rato no separador da folha e selecione Ver Código no menu de contexto. Depois, copie e cole o código VBA abaixo na janela Código. Veja a captura de ecrã:
Código VBA: Bloquear ou proteger células após entrada de dados
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Nota: No código, «A1:F8» é o intervalo onde precisa de introduzir dados; e «123» é a palavra-passe da folha protegida. Ajuste-os conforme necessário.
4. Prima simultaneamente as teclas Alt + Q para fechar a janela Microsoft Visual Basic para Aplicações.
Após concluir a introdução de dados nas células do intervalo A1:F8, estas serão bloqueadas automaticamente. Se tentar alterar o conteúdo de qualquer célula desse intervalo, surgirá uma caixa de diálogo de aviso. Veja a captura de ecrã:
Artigos relacionados:
- Como bloquear todas as referências de células em fórmulas de uma só vez no Excel?
- Como bloquear ou desbloquear a seleção com base no valor de outra célula no Excel?
- Como fixar uma imagem ou figura a uma célula ou dentro dela 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