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 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 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, 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 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 de que você precisa para inserir os dados; e “123” é a senha desta planilha protegida. 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?