如何在 Excel 中將儲存格設定為唯讀？

在許多情況下，您可能需要防止他人編輯工作表中的某些特定儲存格。本文提供了兩種方法，幫助您將指定的儲存格設定為唯讀，這樣其他人就無法編輯這些儲存格，只能進行查看。

通過保護工作表來將儲存格設定為唯讀
通過 VBA 程式碼將儲存格設定為唯讀而不保護工作表

通過保護工作表來將儲存格設定為唯讀

您可以僅鎖定想要設為唯讀的儲存格，然後保護該工作表以實現這一目標。請按照以下步驟操作：

1. 點擊 當前工作表左上角的按鈕以選擇所有儲存格。

2. 同時按下 Ctrl + 1 鍵以打開「 設定儲存格格式」對話框。在對話框中，取消勾選「保護」標籤下的「鎖定」方框，然後點擊「確定」按鈕。參見截圖：

3. 現在選擇您要設為唯讀的儲存格（這裡我選擇了 A1:C18 區域的儲存格）。同時按下 Ctrl + 1 鍵以打開「設定儲存格格式」對話框，勾選「保護」標籤下的「鎖定」方框並點擊「確定」按鈕。

4. 接著點擊「檢視」>「保護工作表」。參見截圖：

5. 指定並確認您的密碼以保護工作表，如下方截圖所示。

現在，鎖定區域內的儲存格已成為唯讀。當您嘗試編輯範圍內的這些特定儲存格時，會看到如下截圖所示的提示框。

通過 VBA 程式碼將儲存格設定為唯讀而不保護工作表

如果您不想通過保護工作表來將儲存格設定為唯讀，本節中的 VBA 腳本將幫助您輕鬆解決這個問題。

1. 右鍵單擊您需要將儲存格設為唯讀的工作表標籤，然後從右鍵菜單中點擊「檢視程式碼」。

2. 在打開的 Microsoft Visual Basic for Applications 視窗中，將以下 VBA 程式碼複製並貼到程式碼窗口中。

VBA 程式碼：在 Excel 中將儲存格設定為唯讀

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Row = 3 Or Target.Row = 4 Or Target.Row = 5 Then
            Beep
            Cells(Target.Row, Target.Column).Offset(0, 1).Select
            MsgBox Cells(Target.Row, Target.Column).Address & " cannot be selected and edited as it is a read-only cell", _
            vbInformation, "Kutools for Excel"
        End If
    End If
End Sub

注意：此程式碼只能將某一列中的指定儲存格設為唯讀。在此程式碼中，它將當前工作表中的 A3、A4 和 A5 儲存格設為唯讀。

3. 按下 Alt + Q 鍵關閉 Microsoft Visual Basic for Applications 視窗。

當點擊當前工作表中的 A3、A4 或 A5 儲存格時，您會看到如下截圖所示的 Kutools for Excel 對話框，並且游標會自動移動到右側相鄰的儲存格。