VBA lock cells based on their content

Hi Sinon05

Place this Code in the Sheet Module for Sheet Data...it has some hitches in it's giddyup...see if it works for you.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim LR           As Long
   Dim Comm         As Double
   LR = Range("Q" & Rows.Count).End(xlUp).Row
   If Not Intersect(Target, Range("Q2:Q" & LR)) Is Nothing Then
      Select Case Target.Value
      Case "Please input value"
         On Error Resume Next
         Application.DisplayAlerts = False
         Comm = Application.InputBox _
                (Prompt:="Please enter Commission.", _
                 Title:="ENTER COMMISSION", Type:=1)
         On Error GoTo 0
         Application.DisplayAlerts = True
         If Comm = 0 Then
            Exit Sub
         Else
            ActiveSheet.Unprotect
            Target.Value = Comm
            ActiveSheet.Protect
         End If
      End Select
   End If
End Sub

***Please Note Well...if this is a Shared File ALL BETS are off...