Excel Bloquear linha se célula contiver "correto"

[diego_janjao]

boa tarde, pessoal. Preciso de uma ajuda com VBA.

Por necessidade da empresa, preciso que quando o usuário digitar todos os campos de uma planilha e o status tiver a palavra "CORRETO", essa linha automaticamente fique bloqueada e sem a opção de selecionar células no bloqueio.

 

poderiam me ajudar? Segue planilha de exemplo: Pasta1.zip

 

Muito obrigado de antemão.

[Visitante]

Fala, Diego.

 

Veja se ajuda. Instale uma cópia no módulo da planilha.

Inicialmente proteja a planilha e desmarque a opção Selecionar células bloqueadas.

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Application.CountA(Cells(Target.Row, 1).Resize(, 3), Cells(Target.Row, 8)) = 4 Then
  ActiveSheet.Protect userinterfaceonly:=True
  Cells(Target.Row, 1).Resize(, 9).Locked = True
 End If
End Sub

 

[diego_janjao]

@osvaldomp funcionou perfeitamente.

 

mais uma vez muito obrigado

[diego_janjao]

@osvaldomp verifiquei aqui na empresa (trabalho a noite) e a fórmula não está levando em consideração a palavra correto.

 

Independentemente do que esteja na coluna Status, mesmo que retornando vazio, ele bloqueia a linha.

 

Há como modificar?

[Visitante]

10 horas atrás, diegojanjao01 disse:

Independentemente do que esteja na coluna Status, mesmo que retornando vazio, ele bloqueia a linha.

 

Exatamente em que situação ocorre o bloqueio? Aqui funciona corretamente.

 

Lembrando:

1. selecione A6:I28 / clique com o direito sobre a seleção / Formatar células / Proteção / desmarque Bloqueadas

2. menu Revisão / Proteger Planilha / desmarque Selecionar células bloqueadas / OK

 

Faça os testes.