Yep, found that out.  Played around with it a bit, but I got it to do what I
wanted finally... I decided I wanted to do the same thing for another set of
cells in two other columns... as well as protect the page so the cells
couldn't be altered after entering data, here's what I have working. Wooga!

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A2:B2000"
  On Error GoTo ws_exit:
  Application.EnableEvents = False
  ActiveSheet.Unprotect Password:="1"
  If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
       With Target
          .Locked = True
      End With
  End If
   ActiveSheet.Protect Password:="1"
   ActiveSheet.EnableSelection = xlUnlockedCells
   
ws_exit:
  Const WS_RANGER As String = "H2:I2000"
   On Error GoTo ws_exit2:
   Application.EnableEvents = False
   ActiveSheet.Unprotect Password:="1"
   If Not Intersect(Target, Me.Range(WS_RANGER)) Is Nothing Then
       With Target
           .Locked = True
       End With
   End If
   ActiveSheet.Protect Password:="1"
   ActiveSheet.EnableSelection = xlUnlockedCells
   
ws_exit2:
   Application.EnableEvents = True
End Sub

Only thing further is to have only the unlocked cells able to be selected
when the program opens... since they seem to be reverting back to editable
once the file is re-opened.

Thanks a bunch!!