Lock/protect active sheet if value on cell meet

[PPPAAARRR]

Hello to all,

I'm new to VBA but can understand some.
I need help regarding locking/protecting the active sheet when the value on cell matches my required value.
For example,
The value will appear on column D. If a value appear on D is "REJECT" the active sheet will become protected.
But before the value on D appear, it must satisfy the condition on column B and C. Cells on column B and C are under formula as well as column D.
The data on column B is dependent on column A1 and data on column C is dependent on A2.
Pls see below

	A	B	C	D
1	1	OK	OK	ACCEPT
2	1
3	1	OK	NG	REJECT
4	2
5

<tbody>
</tbody>

Data on column A are from scanner, so I need to finish scanning to have data on column B and C and to have data on column D.

Thanks in advance for any help you could give me.

 

[Osvaldo Palmeiro]

Hi. See if the code below, which should go into the module of the proper worksheet, could be a start.

Private Sub Worksheet_Calculate()
 If Application.CountIf([D:D], "REJECT") Then ActiveSheet.Protect
End Sub

 

[PPPAAARRR]

Hi @Osvaldo,

Thank you for your reply.
But the code still don't lock the active sheet when "REJECT" value on column D.
I still input data on column A.