如何禁用文本框中的编辑以防止用户在Excel中输入？

本文讨论的是在一个文本框（ActiveX控件）或多个文本框（ActiveX控件）中禁用编辑，以防止用户在Excel中输入。

通过更改文本框的属性来禁用其编辑
禁用通过VBA代码在多个文本框中进行编辑

通过更改文本框的属性来禁用其编辑

本节将向您展示如何更改文本框的属性以禁用对该文本框的编辑。 请执行以下操作。

1.通过单击打开设计模式 开发商 > 设计模式。 看截图：

2.右键单击文本框，然后单击 查看房源 从上下文菜单中，如下所示。

3.在开幕 查看房源 对话框中选择 假 ，在 启用 框，然后关闭“属性”对话框。 看截图：

现在，选定的文本框为灰色，无法编辑。

禁用通过VBA代码在多个文本框中进行编辑

如果要禁用工作表中多个文本框中的编辑，请应用以下VBA代码。

1.在工作表中包含您需要禁用编辑的多个复选框，单击 开发商 > 插页 > 复选框（ActiveX控件） 在工作表中插入一个复选框。 看截图：

2.右键单击复选框，然后选择 查看代码 从上下文菜单中。 看截图：

3.在 Microsoft Visual Basic应用程序 窗口，请用下面的VBA代码替换原始代码。

VBA代码：禁止在多个文本框中进行编辑

Private Sub CheckBox1_Click()
    Dim xTextBox As OLEObject
    Dim xFlag As Boolean
    Dim I As Long
    Dim xArr
    xArr = Array("TextBox1", "TextBox2", "TextBox3")
    xFlag = True
    If Me.CheckBox1 Then xFlag = False
    For Each xTextBox In ActiveSheet.OLEObjects
        If TypeName(xTextBox.Object) = "TextBox" Then
            For I = 0 To UBound(xArr)
                If xTextBox.Name = xArr(I) Then
                    xTextBox.Enabled = xFlag
                End If
            Next
        End If
    Next
End Sub

:

1.在代码中， 复选框1 是您插入的复选框的名称。 和 文字框1, 文字框2及 文字框3 是您将在工作表中禁用编辑的文本框。 请根据需要更改它们。

2.要禁用更多文本框的编辑，请在行中添加包含双引号的文本框名称 xArr = Array（“ TextBox1”，“ TextBox2”，“ TextBox3”）.

4.然后保存并关闭代码，关闭设计模式，现在，选中复选框将使所有指定的文本框无法在工作表中进行编辑。 看截图：

备注：如果取消选中该复选框，则可以再次编辑文本框。

相关文章：

• 在Excel中选择文本框时如何自动选择文本？
• 在Excel中键入时如何自动完成文本框？
• 在Excel中单击时如何清除文本框的内容？
• 如何将多个单元格的文本连接到Excel中的文本框中？
• 如何在Excel中将文本框设置为百分比格式？