VBA Code not unlocking specified cell...What am I doing wrong??????

[storresrl]

Like most newbies I have a question that the rest can probably answer in their sleep but for the life of me I cannot get what I need to work!!!!

I am trying to lock/protect Column "G" and make it accesible only if the contents in Column "F" (Rows 2 thru infinity) is either the letter "F" or "P" and to do nothing and continue to keep Column "G" locked/protected if the contents in Column "F" are "C" or nothing. I will eventually protect it with a password when I decide to allow other users to use the worksheet but for now it will be just me using it for the time being. This is what I have and please forgive me if I violate any rules as I am just trying to get past this difficult hurdle:

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Unprotect
    If Intersect(Target, Range("F2:F200")) Is Nothing Then Exit Sub
    If Target = "F" Or "P" Then
        Target.Offset(0, 7).Locked = False
    End If
    ActiveSheet.Protect
End Sub

Please help if you have the time because I am running out of it! A thousand apologies again for any violations or for coming off as a rookie, just need to get this taken care of so I can move forward in my life...lol