Como bloquear ou proteger as células após a entrada de dados ou entrada no Excel?

Suponha que você tenha uma planilha e apenas um certo intervalo de células em branco precise de 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 isso? Este artigo pode ajudar você.

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 determinado intervalo de células em branco é A1: F8. Faça o seguinte para bloquear essas células após a entrada de dados no Excel.

1. Desbloqueie este intervalo primeiro selecionando as células, clicando com o botão direito e escolhendo 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 Revisão > Folha de proteção. E especifique uma senha 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

Note: No código, “A1:F8” é o intervalo onde você precisa inserir dados; e “123” é a senha para a 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 vez no Excel?
• Como bloquear ou desbloquear células com base em valores em outra célula no Excel?
• Como bloquear imagem / imagem para ou dentro da célula do Excel?