如何在 Excel 中使用核取方塊鎖定和解鎖指定的儲存格？

本文介紹如何使用核取方塊在 Excel 中鎖定和解鎖指定範圍的儲存格。

使用 VBA 程式碼透過核取方塊鎖定和解鎖指定的儲存格

使用 VBA 程式碼透過核取方塊鎖定和解鎖指定的儲存格

以下 VBA 腳本可以幫助您在工作表中勾選或取消勾選核取方塊時，解鎖或鎖定指定範圍的儲存格。請按照以下步驟操作。

1. 首先，您需要為需要用核取方塊鎖定和解鎖的儲存格範圍指定一個名稱。

這裡我選擇範圍 A1:A14，在名稱框中輸入名稱LockRng，然後按下Enter鍵。請參見截圖：

2. 在包含用於鎖定和解鎖儲存格的核取方塊的工作表中，右鍵單擊工作表標籤，然後從右鍵菜單中選擇 檢視程式碼。

注意：插入核取方塊時應使用 ActiveX 核取方塊。

3. 在彈出的 Microsoft Visual Basic for Applications 視窗中，請將以下 VBA 程式碼複製並貼到 程式碼窗口中。

VBA 程式碼：使用核取方塊鎖定或解鎖指定範圍的儲存格

Private Sub CheckBox1_Click()
    Range("LockRng").Select
    On Error Resume Next
    If CheckBox1.Value = True Then
        Selection.Locked = False
        MsgBox "Range cells " & Selection.Address & " has been unlocked", vbInformation, "Kutools for Excel"
    Else
        Selection.Locked = True
        MsgBox "Range cells " & Selection.Address & " has been locked", vbInformation, "Kutools for Excel"
    End If
End Sub

注意：在程式碼中，Checkbox1 是核取方塊的名稱，LockRng 是指定範圍儲存格的名稱。您可以根據需要更改它們。

4. 同時按下 Alt + Q 鍵以關閉 Microsoft Visual Basic for Applications 視窗。

現在您可以測試程式碼了。當取消勾選核取方塊時，會彈出一個 Kutools for Excel 對話框，告訴您指定範圍已被鎖定，請點擊 確定 按鈕。

而當勾選核取方塊時，指定範圍內的所有儲存格都會被解鎖，並且您會看到如下方右側截圖所示的 Kutools for Excel 對話框。

相關文章：

• 如何在 Excel 中根據核取方塊篩選數據？
• 如何在 Excel 中隱藏行時也隱藏核取方塊？
• 如何在 Excel 中創建帶有多個核取方塊的下拉列表？
• 如何在 Excel 中使用核取方塊高亮顯示儲存格或整行？