Excel Bloquear e desbloquear células

[Desenvolvimento]

Pessoal, preciso desenvolver um código VBA que funcione como o exemplo abaixo:

 

Caso as células A1, B1 e C1 não sejam preenchidas as células A2, B2 e C2 devem ser bloqueadas, mas caso as células A1, B1 e C1 sejam preenchidas as células A2, B2 e C2 devem ser desbloqueadas.

 

Se puderem me auxiliar, agradeço.

[Visitante]

 

Se A1 for preenchida então você quer bloquear A2, independente do preenchimento de B1 e de C1 ?

Ou seja,

ao preencher A1 ~~~> desbloqueia A2

ao preencher B1 ~~~> desbloqueia B2

ao preencher C1 ~~~> desbloqueia C2

 

Ou você quer aguardar o preenchimento das 3 células (A1:C1) e só então desbloquear as outras 3 (A2:C2) ?

 

E ao limpar A1, B1 ou C1, o que você quer fazer ?

[Desenvolvimento]

Quero aguardar o preenchimento das 3 primeiras células (A1, B1 e C1) e só então desbloquear as outras 3 (A2, B2 e C2).

 

Ao limpar qualquer uma das 3 primeiras células (A1, B1 ou C1), as outras 3 células (A2, B2 e C2) devem ser bloqueadas.

[Visitante]

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect([A1:C1], Target) Is Nothing Then Exit Sub
 Me.Protect UserInterFaceOnly:=True
 [A2:C2].Locked = Application.CountA([A1:C1]) < 3
End Sub

 

[Desenvolvimento]

No caso das células não estarem em sequência, como deveria ser? Por exemplo:

 

Se ao invés de A1:C1 fossem as células A1, D1 e D5, e ao invés de A2:C2 fossem A7, B4 e C3.

[Visitante]

Antes de formular uma nova demanda informe se a primeira funcionou.

[Desenvolvimento]

Me perdoe Osvaldo. O primeiro código funcionou corretamente.

[Visitante]

Pra a segunda demanda.

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect([A1,D1,D5], Target) Is Nothing Then Exit Sub
 Me.Protect UserInterFaceOnly:=True
 [A7,B4,C3].Locked = Application.CountA([A1,D1,D5]) < 3
End Sub

 

[Desenvolvimento]

@osvaldomp Muito obrigado, funcionou corretamente!