Sub test()
Dim col As Long, imputation As String
For col = 0 To 4
imputation = sheets1.Range("C23").Offset(0, col)
If Left$(imputation, 3) <> "G03" And imputation <> "VE2110" Then
Sheets1.Range("C24:C25").Locked = False
Else
Sheets1.Range("C24:C25").Locked = True
End If
Next
End Sub