设置 Text1.Locked = False ‘允许修改 即可。
示例：
If Text1.Locked = True Then '如果text1不能修改Text1.Locked = False ‘允许修改ElseText1.Locked = True ‘不允许修改End If
