如何在Excel中禁用文本框編輯以防止用戶輸入？

Author Siluvia Last modified 2025-08-23

本文將介紹如何禁用文本框（ActiveX 控制項）或多個文本框（ActiveX 控制項）的編輯功能，以防止用戶在 Excel 中輸入內容。

通過更改其屬性來禁用文本框的編輯功能
 使用 VBA 程式碼禁用多個文本框的編輯功能

通過更改其屬性來禁用文本框的編輯功能

本節將向您展示如何更改文本框的屬性以禁用該文本框的編輯功能。請按照以下步驟操作。

1. 點擊 開發工具 > 設計模式 以啟用設計模式。參見截圖：

click Developer > Design Mode

2. 右鍵單擊文本框，然後從上下文選單中點擊屬性，如下截圖所示。

Right-click the textbox and click Properties

3. 在打開的屬性對話框中，在啟用框中選擇否，然後關閉屬性對話框。參見截圖：

select False in the Enabled box

現在，所選文本框呈灰色且無法編輯。

the selected textbox is gray and unable to edit

使用 Kutools AI 解鎖 Excel 的魔法

智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
自訂公式：生成量身定制的公式，簡化您的工作流程。
VBA 編碼：輕鬆編寫和實現 VBA 代碼。
公式解釋：輕鬆理解複雜的公式。
文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

使用 VBA 程式碼禁用多個文本框的編輯功能

如果您想在工作表中的多個文本框中禁用編輯功能，請應用以下 VBA 程式碼。

1. 在包含多個核取方塊的工作表中，需要禁用編輯功能，點擊 開發工具 > 插入 > 核取方塊（ActiveX 控制項） 以將核取方塊插入到工作表中。參見截圖：

click Developer > Insert > Check Box

2. 右鍵單擊核取方塊，並從上下文選單中選擇 檢視程式碼。參見截圖：

Right-click the checkbox and select View Code

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. 然後保存並關閉程式碼，關閉設計模式，現在，勾選核取方塊將使所有指定的文本框在工作表中無法編輯。參見截圖：

check the checkbox will make all specified textboxes unable to edit

注意：如果您取消勾選核取方塊，則文本框可以再次編輯。

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多