Private Sub Form_Open(Cancel As Integer)
Me.text1.Locked = True
Me.text2.Locked = True
End Sub
注：text1, text2为需要冻结列的名称