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

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

You have not stated the problem you have, but you may try this:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Cell                        As Range
   Me.Unprotect
   If Not Intersect(Target, Range("F2:F200")) Is Nothing Then
      Application.EnableEvents = False
      For Each Cell In Intersect(Target, Range("F2:F200")).Cells
         Select Case UCase$(Cell.Value)
            Case "F", "P"
               Cell.Offset(0, 1).Locked = False
            Case Else
               Cell.Offset(0, 1).Locked = True
         End Select
      Next Cell
      Application.EnableEvents = True
   End If
   Me.Protect
End Sub

storresrl,

Welcome to the forum. - 2 pointers

1. I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. In order to put code tags, either type [CODE] before your code and [/CODE] at the end of it, OR you can highlight your code and click the # icon at the top of your post window.

2. Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Thank you both for your quick responses.

I have added the problem to my post title. Hope this is the information needed to proceed.

Thank you arlu1201 for the advice although I do believe this site should make you acknowledge or accept the rules of this forum before proceeding. All it did was allow me to register and enter information not accept the rules or agree to abide by the rules of this forum.

What are F and P? the values?


e/ Sorry arlu, I didn't see your post.

If you are happy with the solution please mark the thread as [SOLVED] using the thread tools at the top.

There is a checkbox asking you if you agree to abide by the rules.