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

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

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

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

読み取り専用にしたいセルのみをロックし、このワークシートを保護してそれを実現できます。 次のようにしてください。

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

2。 プレス Ctrlキー + 1 キーを同時に開いて セルの書式設定 ダイアログボックス。 ダイアログボックスで、チェックを外します ロック 下のボックス 保護 タブをクリックして、 OK ボタン。 スクリーンショットを参照してください：

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

4.クリックしてください レビュー > 保護シート。 スクリーンショットを参照してください：

5.以下のスクリーンショットに示すように、ワークシートを保護するためにパスワードを指定して確認します。

これで、ロックされた範囲のセルは読み取り専用になりました。 範囲内のこれらの特定のセルを編集しようとすると、以下のスクリーンショットに示すようなプロンプトボックスが表示されます。

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

ワークシートを保護してセルを読み取り専用にする必要がない場合。 このセクションのVBAスクリプトは、この問題を簡単に解決するのに役立ちます。

1.セルを読み取り専用にするために必要なシートタブを右クリックし、[ コードを表示 右クリックメニューから。

2.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウで、以下の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

Note：このコードは、3つの列の指定されたセルを読み取り専用にすることができます。 このコードでは、セルA4、A5、およびAXNUMXが現在のワークシートで読み取り専用になります。

3。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

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