Como bloquear ou proteger células após entrada ou entrada de dados Excel?
Suponha que você tenha uma planilha e apenas um determinado intervalo de células em branco precise da entrada de dados e, após terminar de inserir os dados, você precisa que as células sejam bloqueadas automaticamente para evitar alterações novamente. Como você pode fazer para alcançá-lo? Este artigo pode te ajudar.
Bloqueie ou proteja as células após a entrada de dados ou entrada com o código VBA
Bloqueie ou proteja as células após a entrada de dados ou entrada com o código VBA
Por exemplo, o intervalo específico de células em branco é A1:F8. Faça o seguinte para bloquear essas células após a entrada de dados em Excel.
1. Desbloqueie este intervalo primeiro, selecione as células e clique com o botão direito do mouse, depois escolha formatar células no menu do botão direito e no formatar células caixa de diálogo, desmarcando o Trancado caixa sob o proteção guia e, finalmente, clicando no OK botão. Veja a imagem:
2. Clique Comentários > Folha de proteção. E especifique um passeword para proteger esta planilha.
3. Clique com o botão direito na guia da folha e selecione Ver código no menu do botão direito. Em seguida, copie e cole o código VBA abaixo na janela Código. Veja a imagem:
Código VBA: bloqueie ou proteja as células após a entrada ou 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
Anote os: No código, “A1:F8” é o intervalo que você precisa para inserir os dados; e “123” é o passeword desta planilha protegida. Por favor, altere-os conforme necessário.
4. Pressione outro + Q simultaneamente para fechar o Microsoft Visual Basic para Aplicações janela.
Após terminar de inserir os dados nas células do intervalo A1: F8, elas serão bloqueadas automaticamente. E você obterá uma caixa de diálogo de prompt se tentar alterar qualquer conteúdo de célula deste intervalo. Veja a imagem:
Artigos relacionados:
- Como bloquear todas as referências de células em fórmulas de uma só vez em Excel?
- Como bloquear ou desbloquear células com base nos valores de outra célula em Excel?
- Como bloquear imagem/imagem dentro ou dentro da célula Excel?
Melhores ferramentas de produtividade de escritório
Turbine suas planilhas: Experimente eficiência como nunca antes com Kutools for Excel
Kutools for Excel possui mais de 300 recursos, garantindo que o que você precisa está a apenas um clique de distância...
Suporta Escritório/Excel 2007-2021 e mais recentes, incluindo 365 | Disponível em 44 idiomas | Desfrute de um teste gratuito de 30 dias com todos os recursos.
Office Tab Traz a interface com guias para o Office e torna seu trabalho muito mais fácil
- Ative a edição e leitura com guias em Word, Excel, Power Point, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
