[vba]

With wksUserInput

.Unprotect Password:="pencil"

If .Range("InputStyle") = "Product A" Or .Range("InputStyle") = "Product B" Then

.Range("l38").Locked = False

Else
.Range("l38").Locked = Truendif

.Protect Password:="pencil", _
UserInterfaceOnly:=True, _
AllowFormattingCells:=True
End If
End With
[/vba]