Excelでセルを読み取り専用にする方法は？

多くの場合、他のユーザーがあなたのワークシート内の特定のセルを編集できないようにする必要があります。この記事では、指定されたセルを読み取り専用にするための2つの方法を提供し、他のユーザーがこれらのセルを読むこと以外に編集できないようにします。

ワークシートを保護してセルを読み取り専用にする
ワークシートを保護せずにVBAコードを使用してセルを読み取り専用にする

ワークシートを保護してセルを読み取り専用にする

読み取り専用にしたいセルのみをロックし、その後ワークシートを保護することでそれを実現できます。以下の手順に従ってください。

1. 現在のワークシートの左上隅にある ボタンをクリックしてすべてのセルを選択します。

2. Ctrl + 1キーを同時に押して「セルの書式設定」ダイアログを開きます。ダイアログ内で、「保護」タブの下にある「ロック」チェックボックスのチェックを外し、「OK」ボタンをクリックします。スクリーンショットをご覧ください：

3. 読み取り専用にしたいセルを選択します（ここではA1:C18の範囲を選択）。Ctrl + 1キーを同時に押して「セルの書式設定」ダイアログを開き、「保護」タブの下にある「ロック」チェックボックスをオンにして「OK」ボタンをクリックします。

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

注意: このコードは、1列内の指定されたセルのみを読み取り専用にすることができます。このコードでは、現在のワークシートでセルA3、A4、およびA5を読み取り専用にします。

3. Alt + Qキーを押して「Microsoft Visual Basic for Applications」ウィンドウを閉じます。

現在のワークシートでセルA3、A4、またはA5をクリックすると、以下のような「Kutools for Excel」ダイアログボックスが表示され、カーソルは自動的に右隣のセルに移動します。