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

Microsoft Excel 提供了强大的数据管理、分析和可视化功能。为了维护数据完整性并防止意外更改，您有时可能希望限制特定单元格或文本框中的用户输入。在本课中，我们将逐步介绍如何防止用户更改文本框，以便他们只能查看内容而无需进行任何更改。通过使用此策略，您可以保护您的数据并创建更安全的 Excel 工作表。因此，让我们开始并了解如何阻止用户在 Excel 文本框中输入数据！

禁用文本框编辑以防止用户输入

在这里，我们将首先插入一个 ActiveX 控件复选框，然后向其中添加 VBA 代码以完成任务。因此，让我们看看一个简单的过程，了解如何禁用文本框中的编辑以防止用户在 Excel 中输入。

步骤 1

考虑一个 Excel 工作表，其中包含类似于下图的文本框。

首先，点击“开发工具”，然后插入“ActiveX 控件”复选框。为此，请点击插入，然后点击复选框并绘制。

开发工具 > 插入 > 复选框 > 绘制。

步骤 2

然后右键点击复选框，选择“查看代码”以打开 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

在代码中，CheckBox1 是您插入的复选框的名称。TextBox1、TextBox2 和 TextBox3 是您将在工作表中禁用编辑的文本框。请根据需要更改它们。

步骤 3

然后保存代码并关闭 VBA 应用程序。从现在开始，当选中复选框时，编辑将被禁用。

Alt + Q > 复选框。

结论

在本教程中，我们使用了一个简单的示例来演示如何禁用文本框中的编辑以防止用户在 Excel 中输入，以突出显示特定数据集。

更新于： 2023-07-11

304 次浏览

开启你的 职业生涯

通过完成课程获得认证

开始学习
广告