在Excel中輸入或輸入數據后如何鎖定或保護單元格？

假設您有一個工作表，并且只有一定范圍的空白單元格需要輸入數據，并且在完成輸入數據之后，您需要自動鎖定這些單元格以防止再次更改。 您如何才能做到這一點？ 本文可以為您提供幫助。

在數據輸入或使用VBA代碼輸入后鎖定或保護單元格

在數據輸入或使用VBA代碼輸入后鎖定或保護單元格

例如，空白單元格的特定范圍是A1：F8。 在Excel中輸入數據后，請執行以下操作以鎖定這些單元格。

1.請先解鎖此范圍，選擇單元格并單擊鼠標右鍵，然后選擇 單元格格式 在右鍵菜單中，然后在 單元格格式 對話框，取消選中 鎖定 下框 保護 標簽，最后點擊 OK 按鈕。 看截圖：

2。 點擊 進入步驟三：發送 > 保護工作表。 并指定密碼以保護此工作表。

3.右鍵單擊工作表標簽，選擇 查看代碼 從右鍵單擊菜單中。 然后將下面的VBA代碼復制并粘貼到“代碼”窗口中。 看截圖：

VBA代碼：數據輸入或輸入后鎖定或保護單元格

Dim mRg As RangeDim mStr As StringPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Not Intersect(Range("A1:F8"), Target) Is Nothing ThenSet mRg = Target.Item(1)mStr = mRg.ValueEnd IfEnd SubPrivate Sub Worksheet_Change(ByVal Target As Range)Dim xRg As RangeOn Error Resume NextSet xRg = Intersect(Range("A1:F8"), Target)If xRg Is Nothing Then Exit SubTarget.Worksheet.Unprotect Password:="123"If xRg.Value <> mStr Then xRg.Locked = TrueTarget.Worksheet.Protect Password:="123"End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Not Intersect(Range("A1:F8"), Target) Is Nothing ThenSet mRg = Target.Item(1)mStr = mRg.ValueEnd IfEnd SubCopy

備注：在代碼中，“ A1：F8”是您需要輸入數據的范圍； “ 123”是此受保護工作表的密碼。 請根據需要更改它們。

4。 按 其他 + Q 同時關閉按鍵 Microsoft Visual Basic應用程序 窗口。

將數據輸入到范圍A1：F8的單元格后，它們將被自動鎖定。 如果您嘗試更改此范圍的任何單元格內容，則會出現一個提示對話框。 看截圖：

相關文章:如何在Excel中一次鎖定公式中的所有單元格引用？如何根據Excel中另一個單元格中的值鎖定或解鎖單元格？如何將圖片/圖像鎖定到Excel中的單元格或內部單元格？

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel