チェックボックスを使用してExcelで特定のセルをロックおよびアンロックする方法は？

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

VBAコードを使用してチェックボックスで指定されたセルをロックおよびアンロックする

VBAコードを使用してチェックボックスで指定されたセルをロックおよびアンロックする

以下のVBAスクリプトは、ワークシート内のチェックボックスをオンまたはオフにすることで、指定されたセル範囲をロックまたはアンロックするのに役立ちます。次の手順に従ってください。

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

ここでは、範囲A1:A14を選択し、名前ボックスに「LockRng」と入力してから、Enterキーを押します。スクリーンショットをご覧ください：

2. チェックボックスを使用してセルをロックおよびアンロックするワークシートで、シートタブを右クリックし、表示されたメニューから「 コードの表示」を選択します。

注: 挿入する際、チェックボックスはActiveXチェックボックスである必要があります。

3. 表示されたMicrosoft Visual Basic for Applicationsウィンドウで、以下のVBAコードをコピーしてコードウィンドウに貼り付けてください。

VBAコード: チェックボックスを使用して特定のセル範囲をロックまたはアンロックする

Private Sub CheckBox1_Click()
    Range("LockRng").Select
    On Error Resume Next
    If CheckBox1.Value = True Then
        Selection.Locked = False
        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

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

4. Alt + Qキーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

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

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

関連記事：

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