背景变色连续窗体，锁定属性失效

问题：

文本框 属性（可用、是否锁定）设置失效

正常情况 可用 为“否”，是否锁定 为“是”时，文本框是不能获得焦点的。

现在文本框可以获得焦点，背景色随着点选某行数据跟着变色，求帮忙解决一下这一问题。

如果可能请帮忙注 一下代码的意思万分感谢！

代码为论坛搬运

Private Sub Form_Open(Cancel As Integer)

Me.TS.Enabled = True
Dim ctl As Control
 For Each ctl In Me.Form
 If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
  ctl.FormatConditions.Add acExpression, acEqual, 1 '识码
  ctl.FormatConditions(0).Modify acExpression, , "[序号] ='-1'" '主键
  'ctl.FormatConditions(0).ForeColor = RGB(0, 112, 255) '字体颜色
  'ctl.FormatConditions(0).FontBold = True '加粗
  ctl.FormatConditions(0).BackColor = RGB(200, 200, 245) '背景颜色
  ctl.OnGotFocus = "=test([序号])"
End If
Next ctl
End Sub
Function test(ByVal A As String)
 Dim ctl As Control
 For Each ctl In Me.Form
 If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
 ctl.FormatConditions(0).Modify acExpression, , "[序号] ='" & A & "'"
 End If
 Next ctl

 End Function