Como selecionar todas as opções de «Desbloquear Seleção» no Excel?
Como todos sabemos, as células do Excel estão bloqueadas por predefinição. Quando protegemos uma folha de cálculo e precisamos de modificar alguns valores específicos, é necessário desbloquear primeiro essas células. Mas como pode encontrar e selecionar todas as células desbloqueadas, caso pretenda efetuar alterações?
Selecionar todas as Desbloquear Seleção com código VBA
Selecionar todas as Desbloquear Seleção com Kutools para Excel
Selecionar todas as Desbloquear Seleção com código VBA
O seguinte código VBA permite-lhe selecionar rapidamente todas as opções de Desbloquear Seleção de uma só vez. Siga estes passos:
1. Mantenha premidas as teclas ALT + F11 e será aberta a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: selecionar todas as Desbloquear Seleção
Sub SelectUnlockedCells()
'Update 20130830
Dim WorkRng As Range
Dim OutRng As Range
Dim Rng As Range
On Error Resume Next
Set WorkRng = Application.ActiveSheet.UsedRange
Application.ScreenUpdating = False
For Each Rng In WorkRng
If Rng.Locked = False Then
If OutRng.Count = 0 Then
Set OutRng = Rng
Else
Set OutRng = Union(OutRng, Rng)
End If
End If
Next
If OutRng.Count > 0 Then OutRng.Select
Application.ScreenUpdating = True
End Sub
3. Em seguida, prima a tecla F5para executar este código e todas as células com «Desbloquear Seleção» serão selecionadas. Poderá então modificar os valores dessas células após a proteção da folha.
Notas：
- 1. Se não existirem células desbloqueadas na sua folha de cálculo, este código não terá efeito.
- 2. Este código VBA aplica-se exclusivamente ao intervalo utilizado.
Selecionar todas as Desbloquear Seleção com Kutools para Excel
Se não estiver familiarizado com código VBA, também pode selecionar todas as células desbloqueadas com um único clique utilizando a funcionalidade Selecionar Células Não Bloqueadas do Kutools para Excel.
Kutools para Excel: com mais de 300 complementos práticos para o Excel, experimente gratuitamente e sem limitações durante 30 dias.Obtenha já.
Se tiver instalado o Kutools para Excel, proceda da seguinte forma:
1. Selecione o intervalo ou toda a folha de cálculo onde deseja selecionar as células desbloqueadas.
2. Clique em Kutools > Selecionar > Selecionar Células Não Bloqueadas.
3. Todas as opções «Desbloquear Seleção» na sua seleção serão imediatamente selecionadas, conforme ilustrado na seguinte captura de ecrã:
Se pretender saber mais sobre esta funcionalidade, clique em Selecionar Células Não Bloqueadas.
Artigo relacionado:
Como identificar e selecionar todas as Bloquear Seleção 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