电脑怎么样让英文锁定(怎样锁定文本框不可用，VBA编程中是这样设置的，你知道吗？)

VBA编程中的一些对象，有一个功能需要我们进行设置，比如，不想让某个控件选择或者让这个控件失效。

这个功能还是很实用的，本文介绍两个属性，可以实现这样的功能。

一个是Enabled属性，另一个是Locked属性。

英文翻译，Enabled为"使能"，也是大多工业设备中经常用到的一个英文单词。

Locked为"锁定"。

理解其含义之后，使用就简单多了。

如下图示例：

我们利用两个选择框来控制第一个文本框的Enabled，和Locked状态。第二个文本框为说明文本。

也就是当要选择Enabled"使能"的时候，就可以编辑文本，当不选择的时候文本框失去编辑功能。

失去编辑功能字体颜色会变成灰色，文本框内容也不能选择。

当我们选择Locked的时候，实现锁定文本，文本框颜色不变，可以选择也可以通过键盘操作复制(Ctrl+C)，但不能进行删除、修改、添加、插入等编辑操作。

具体我们看代码来时行理解。

首先在VBE中新建一个窗体，并添加2个CheckBox控件，2个TextBox控件。

窗体代码：PrivateSubUserForm_Initialize()TextBox1.Text="可变属性"TextBox1.Enabled=TrueTextBox1.Locked=FalseCheckBox1.Caption="Enabled属性"CheckBox1.Value=FalseCheckBox2.Caption="Locked属性"CheckBox2.Value=FalseTextBox2.Text="TextBox2"EndSub

CheckBox1代码

PrivateSubCheckBox1_Change()IfMe.CheckBox1.ValueThenTextBox2.Text="有效：可以修改"TextBox1.Enabled=CheckBox1.ValueElseTextBox2.Text="无效：不能修改"TextBox1.Enabled=CheckBox1.ValueEndIfEndSub

CheckBox2代码

PrivateSubCheckBox2_Change()IfMe.CheckBox2ThenTextBox2.Text="锁定：不可修改内容"TextBox1.Locked=CheckBox2.ValueElseTextBox2.Text="解锁：可修改内容"TextBox1.Locked=CheckBox2.ValueEndIfEndSub

Enabled和Locked属性在很多控件中可以使用，并不一定是这两种控件，所以在编程过程有条件地使用还是可以达到想的结果的。

END