如何在不保護整個工作表的情況下，鎖定特定儲存格？

作者Siluvia修改日期2024-10-29

一般情況下，您必須保護整個工作表，才能防止特定儲存格區域被編輯。但有沒有可能在不保護整個工作表的情況下，僅鎖定特定選區呢？本文將為您推薦一種 VBA 方法。

使用 VBA 在不保護整個工作表的情況下鎖定特定儲存格

假設您需要在目前工作表中鎖定儲存格 A3 與 A5，以下 VBA 程式碼可協助您輕鬆達成目標，無需保護整個工作表。

1. 按一下工作表分頁，點選滑鼠右鍵，並從右鍵選單中選擇檢視程式碼。

2. 接著，請將下方的 VBA 程式碼複製並貼上至程式碼視窗中（參見截圖）。

VBA 程式碼：在不保護整個工作表的情況下鎖定特定儲存格

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Row = 3 Or Target.Row = 5 Then
            Beep
            Cells(Target.Row, Target.Column).Offset(0, 1).Select
        End If
    End If
End Sub

VBA 編輯器的螢幕截圖，顯示用於鎖定特定儲存格而不保護整個工作表的程式碼

注意：在程式碼中，Column 1、Row = 3 與 Row = 5 表示執行程式碼後，將鎖定目前工作表中的儲存格 A3 與 A5. 您可依需求調整這些設定。

3. 同時按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

目前，儲存格 A3 與 A5 已在當前工作表中被鎖定。當您嘗試選取其中任一儲存格時，游標將自動跳至右側相鄰的儲存格。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多