如何在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 中將文本框格式化為百分比？