Unlocking Cells if condition met

Please see the attached file.

Requirements
If Cell A2 has "Yes" then unlock Cells B2:B5

Note:
1) All other locked cells must be protected at all times.
2) The Macro should not ask the user to enter password, but the macro should have the password inbuilt itself.
3) If after entering data in B2:B5 the user removes "Yes" from A2, then Cells B2:B5 should become blank again & Locked.

Looking for urgent help.

Thank you very much.
It works fantastically well.

In continuation with my above mentioned query, I am facing this problem now

I want to set more than 1 conditions in one sheet, then how to change the macro accordingly.

for example

If A2 = "Yes" then B2:F2 unlocked
If A3 = "Yes" then B3:F3 unlocked

clear contents if condition not met and sheet protected again.

Please find attached the Exact Sample excel file I am working on.

I am quite dumb at VBA and am Sorry for troubling you again

Requirement 1

If D4 = "A" then unlock G4:H4 & M4 with my password
If D4 = "Select" or "" or "I" then clear contents & lock G4:H4 & M4 with my password

Requirement 2

If B12="Y" then unlock C12:H12 & J12:M12 with my password
If B12= "" then lock C12:H12 & J12:M12 & Clear Contents with my password
If B13="Y" then unlock C13:H13 & J13:M13
If B13= "" then lock C13:H13 & J13:M13 & Clear Contents
the same upto B30

Requirement 3

If M32 > 0 the unlock D35 & F35 with my password
If M32 = 0 or "" then lock D35 & F35 & clear contents with my password

Apart from this at all times the protectec cells must be locked

I know its too specific but I need urgent help ...Please Help...

Superb,
Thanks for your valuable time
I managed to work it with the merged cell by changing a fe things in the code as under

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D4, B12:B30, M32")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect Password:="mypassword"
Dim x As Long
If Target = "A" And Target.Column = 4 Then
Range("G4:J4").Locked = False
Range("M4").Locked = False
ElseIf Target = "Select" Or Target = "" Or Target = "I" And Target.Column = 4 Then
Range("G4:J4").ClearContents
Range("M4").ClearContents
Range("G4:J4").Locked = True
Range("m4").Locked = True
End If

Thank you so much for the help. You made my day.

Will trouble you if more help is required.

Dear Mumps 1,
Please see the file attached.

I am facing the followin problems

1)When * is removed from any cell of B11:B30 an error comes.

2) I have changed the codes you gave me to meet my modified requirement due to which the above problem came and the file has become very very very slow.

3)New Requirement: There is a drop down in H11:H30 dependant on G11:G30 via INDIRECT formula.
What is happening is that If a value in G11 is selected and a correponding value in is selected there is no problem. But when G11 is changed the value in Hll remains which is not corresponding to the value in G11 causing error. Is it possible that the value in H11 turns to blank or refreshes upon every change in G11 and so on.

Can all this be done without making the file slow.

Please Please Please help.

When I delete *
a message box comes saying
Run-time error '13'
Type mismatch

and when I hit debug
The following portion becomes yellow
If Target = "Advance" And Target.Column = 4 Then

Dear Mumps 1,

I had attached the wrong file earlier.

Please see the file attached with the message and help where I am going wrong.

Please help.