Excelのチェックボックスで指定したセルをロックおよびロック解除するにはどうすればよいですか？

この記事では、チェックボックスを使用して、Excelで指定されたセルの範囲をロックおよびロック解除する方法について説明します。

VBAコードを使用して、チェックボックスで指定したセルをロックおよびロック解除します

VBAコードを使用して、チェックボックスで指定したセルをロックおよびロック解除します

以下のVBAスクリプトは、ワークシートのチェックボックスをオンまたはオフにするときに、指定したセルの範囲をロック解除またはロックするのに役立ちます。 次のようにしてください。

1.まず、チェックボックスを使用してロックおよびロック解除する必要のあるセルの範囲に名前を指定する必要があります。

ここで範囲A1：A14を選択し、名前を入力します ロックリング に 名前 ボックスをクリックし、を押します 入力します キー。 スクリーンショットを参照してください：

2.ワークシートにセルのロックとロック解除に使用するチェックボックスが含まれている場合は、[シート]タブを右クリックし、[ コードを表示 右クリックメニューから。

Note：挿入するときは、チェックボックスをActiveXチェックボックスにする必要があります。

3.ポップアップで アプリケーション向け Microsoft Visual Basic ウィンドウで、以下のVBAコードをコピーして貼り付けてください Code 窓。

VBAコード：チェックボックスを使用して、指定したセルの範囲をロックまたはロック解除します

Private Sub CheckBox1_Click()
    Range("LockRng").Select
    On Error Resume Next
    If CheckBox1.Value = True Then
        Selection.Locked = Fals
        MsgBox "Range cells " & Selection.Address & " has been unlocked", vbInformation, "Kutools for Excel"
    Else
        Selection.Locked = True
        MsgBox "Range cells " & Selection.Address & " has been locked", vbInformation, "Kutools for Excel"
    End If
End Sub

Note：コードでは、Checkbox1はチェックボックスの名前、LockRngは指定された範囲セルの名前です。 必要に応じて変更できます。

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

これで、コードをテストできます。 チェックボックスをオフにすると、 Kutools for Excel 指定した範囲がロックされたことを示すダイアログボックスが表示されます。をクリックしてください。 OK

チェックボックスをオンにすると、指定した範囲内のすべてのセルのロックが解除され、 Kutools for Excel 右下のスクリーンショットのようなダイアログボックスが表示されます。

関連記事:

• Excelのチェックボックスに基づいてデータをフィルタリングするにはどうすればよいですか？
• Excelで行が非表示になっているときにチェックボックスを非表示にするにはどうすればよいですか？
• Excelで複数のチェックボックスを含むドロップダウンリストを作成するにはどうすればよいですか？
• Excelのチェックボックスでセルまたは行を強調表示するにはどうすればよいですか？