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

本文将介绍如何禁用文本框（ActiveX 控件）或多个文本框（ActiveX 控件）的编辑功能，以防止用户在 Excel 中输入内容。

通过更改其属性来禁用文本框编辑
使用 VBA 代码禁用多个文本框的编辑功能

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

本节将向您展示如何更改文本框的属性以禁用该文本框的编辑功能。请按照以下步骤操作。

1. 单击“开发工具”选项卡中的 “设计模式”以开启设计模式。见截图：

2. 右键单击文本框，并从上下文菜单中选择“属性”，如下图所示。

3. 在弹出的“属性”对话框中，在“启用”框中选择“否”，然后关闭“属性”对话框。见截图：

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

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

使用 VBA 代码禁用多个文本框的编辑功能

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

1. 在包含需要禁用编辑的多个复选框的工作表中，单击“开发工具”>“插入”>“复选框 (ActiveX 控件)”以将复选框插入到工作表中。见截图：

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

3. 在 Microsoft Visual Basic for Applications 窗口中，请将原始代码替换为以下 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. 在代码中，CheckBox1 是您插入的复选框的名称。TextBox1、TextBox2 和 TextBox3 是您将在工作表中禁用编辑的文本框。请根据需要进行更改。

2. 如果要禁用更多文本框的编辑功能，请将双引号括起来的文本框名称添加到 xArr = Array("TextBox1", "TextBox2", "TextBox3") 这一行中。

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

注意：如果取消勾选复选框，文本框可以再次编辑。

相关文章：

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