Excelでのデータ入力または入力後にセルをロックまたは保護するにはどうすればよいですか？

ワークシートがあり、特定の範囲の空白セルのみにデータ入力が必要であり、データの入力が終了した後、再度変更されないようにセルを自動的にロックする必要があるとします。 それを達成するためにどのようにできますか？ この記事はあなたを助けることができます。

データ入力またはVBAコードでの入力後にセルをロックまたは保護する

データ入力または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

Note：コードでは、「A1：F8」はデータを入力するために必要な範囲です。 「123」は、この保護されたワークシートのパスワードです。 必要に応じて変更してください。

4。 押す 他の + Q キーを同時に閉じて アプリケーション向け Microsoft Visual Basic 窓。

範囲A1：F8のセルへのデータの入力が完了すると、それらは自動的にロックされます。 また、この範囲のセルコンテンツを変更しようとすると、プロンプトダイアログボックスが表示されます。 スクリーンショットを参照してください：

関連記事:

• Excelで数式内のすべてのセル参照を一度にロックするにはどうすればよいですか？
• Excelの別のセルの値に基づいてセルをロックまたはロック解除するにはどうすればよいですか？
• 写真/画像をExcelのセルまたはセル内にロックする方法は？