Como bloquear células específicas no Excel sem proteger toda a folha de cálculo?
Normalmente, é necessário proteger toda a folha de cálculo para ativar a opção “Bloquear Seleção” e impedir edições. Será que existe alguma forma de bloquear a seleção sem proteger toda a folha? Este artigo apresenta-lhe um método prático utilizando VBA.
Bloquear células específicas sem proteger toda a folha de cálculo com VBA
Bloquear células específicas sem proteger toda a folha de cálculo com VBA
Suponha que precise bloquear as células A3 e A5 na Planilha Atual; o seguinte código VBA ajudá-lo-á a consegui-lo sem proteger toda a folha de cálculo.
1. Clique com o botão direito do rato no separador da folha e selecione Ver Código no menu de contexto.
2. Depois, copie e cole o seguinte código VBA na janela Código. Veja a captura de ecrã:
Código VBA: Bloquear células específicas sem proteger toda a folha de cálculo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Row = 3 Or Target.Row = 5 Then
Beep
Cells(Target.Row, Target.Column).Offset(0, 1).Select
End If
End If
End Sub
Nota: No código, Coluna 1, Linha = 3 e Linha = 5 indicam que as células A3 e A5 na Planilha Atual serão bloqueadas após a execução do código. Pode alterá-las conforme necessário.
3. Prima simultaneamente as teclas Alt+Q para fechar a janela do Microsoft Visual Basic para Aplicações.
Agora, as células A3 e A5 estão bloqueadas na Planilha Atual. Se tentar selecioná-las, o cursor será automaticamente deslocado para a célula adjacente à direita.
Artigos relacionados:
- Como bloquear todas as referências de células nas fórmulas de uma só vez no Excel?
- Como bloquear ou proteger células no Excel após a introdução de dados?
- Como bloquear ou desbloquear a seleção com base no valor de outra célula no Excel?
- Como fixar uma imagem ou fotografia a uma célula no Excel?
- Como impedir que a largura e a altura das células sejam alteradas 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