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

網友投稿 467 2024-01-05

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

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

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

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

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

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

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

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

Dim mRg As Range Dim mStr As String Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("A1:F8"), Target) Is Nothing Then Set mRg = Target.Item(1) mStr = mRg.Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("A1:F8"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" If xRg.Value <> mStr Then xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("A1:F8"), Target) Is Nothing Then Set mRg = Target.Item(1) mStr = mRg.Value End If End Sub

Copy

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

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

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

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

最佳辦公生產力工具

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

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

為什么需要 Kutools for Excel

??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。

?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！