如何使用Excel中的複選框鎖定和解鎖指定的單元格？

本文討論的是使用複選框來鎖定和解鎖Excel中的指定單元格範圍。

使用VBA代碼通過複選框鎖定和解鎖指定的單元格

---

使用VBA代碼通過複選框鎖定和解鎖指定的單元格

下面的VBA腳本可以幫助您在選中或取消選中工作表中的複選框時解鎖或鎖定一系列指定的單元格。 請執行以下操作。

1.首先，需要為需要鎖定和解鎖複選框的單元格範圍指定一個名稱。

在這裡我選擇範圍A1：A14，輸入名稱 鎖扣 到 姓名 框，然後按 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 = Fals
        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。 按 其他 + Q 同時關閉按鍵 Microsoft Visual Basic for Applications 窗口。

現在您可以測試代碼了。 取消選中該複選框時， Excel的Kutools 將會彈出對話框，告訴您指定的範圍已被鎖定，請單擊 OK 按鈕。

選中該複選框時，指定範圍內的所有單元格都將被解鎖，並且您將獲得一個 Excel的Kutools 對話框如下圖所示。

---

相關文章:

• 如何基於Excel中的複選框過濾數據？
• 在Excel中隱藏行時如何隱藏複選框？
• 如何在Excel中創建帶有多個複選框的下拉列表？
• 如何在Excel中使用複選框突出顯示單元格或行？