Cell conditional formatting

Got my answer:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target <> Range("G9") Then Exit Sub
ActiveSheet.Unprotect

If Range("G9").Value = "Implant Pass-through: Auto Inovice Pricing (AIP)" Then
Range("B69").Locked = True
Range("B67").Locked = False
End If

If Range("G9").Value = "Implant Pass-through: PPR Tied to Invoice" Then
Range("B67").Locked = True
Range("B69").loced = False
End If
ActiveSheet.Protect
End Sub