日付に基づいてExcelでセルを保護するにはどうすればよいですか？

通常、ワークシートを保護して他の人がセルの値を編集したり変更したりすることを防ぐことができますが、時には日付に基づいてセルを保護する必要があります。例えば、次のスクリーンショットに示すように、他のすべてのセルを保護し、今日の日付のセル値のみを変更可能にしたい場合があります。この記事では、日付に基づいてセルを保護する方法について説明します。

VBAコードを使用して今日の日付以外のすべての行を保護する

VBAコードを使用して過ぎた日付のすべての行を保護する

VBAコードを使用して今日の日付以外のすべての行を保護する

今日の日付と等しい行のみを変更できるようにするには、次のコードが役立ちますので、以下の手順を行ってください：

1. 日付に基づいてセルを保護したいシートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。開かれたMicrosoft Visual Basic for Applicationsウィンドウで、次のコードを空白のモジュールにコピーして貼り付けてください：

VBAコード：今日の日付以外のすべての行を保護する：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
    If Range("E" & Selection.Row).Value <> Date Then
        ActiveSheet.Protect Password:="111111"
        MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
    ElseIf Range("E" & Selection.Row).Value = Date Then
        ActiveSheet.Unprotect Password:="111111"
        ActiveSheet.EnableSelection = xlNoRestrictions
    End If
End Sub

注: 上記のコードでは、文字Eは日付が配置されている列のヘッダーであり、「111111」はこのシートを保護するためのパスワードです。必要に応じてこれらを変更できます。

2. その後、このコードウィンドウを保存して閉じます。

(1.) 今日の日付以外の行をクリックすると、そのセルを編集できないことを知らせるプロンプトボックスがポップアップ表示されます。次のスクリーンショットをご覧ください：

(2.) 今日の日付の行をクリックして編集すると、正常に変更されます。次のスクリーンショットをご覧ください：

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

VBAコードを使用して過ぎた日付のすべての行を保護する

過ぎた日付のすべての行を保護し、今日および将来の日付の行のみを変更可能にする必要がある場合は、次のVBAコードを適用してください：

1. 日付に基づいてセルを保護したいシートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。開かれたMicrosoft Visual Basic for Applicationsウィンドウで、次のコードを空白のモジュールにコピーして貼り付けてください：

VBAコード：過ぎた日付のすべての行を保護する：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161025
  Dim xRow As Long
  xRow = 2
  ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
  ThisWorkbook.ActiveSheet.Cells.Locked = False
  Do Until IsEmpty(Cells(xRow, 5))
    If Cells(xRow, 5) < Date Then
      Rows(xRow).Locked = True
    End If
    xRow = xRow + 1
  Loop
  ThisWorkbook.ActiveSheet.Protect Password:="111111"
End Sub

注: 上記のコードでは、数字5は日付が配置されている列番号であり、「111111」はこのシートを保護するためのパスワードです。必要に応じてこれらを変更できます。

3. その後、このコードウィンドウを保存して閉じます。

(1.) 過ぎた日付のセルをクリックすると、そのセルを編集できないことを知らせるプロンプトボックスがポップアップ表示されます。次のスクリーンショットをご覧ください：

(2.) 今日の日付または将来の日付の行のセルをクリックして値を変更しようとすると、正常に変更されます。次のスクリーンショットをご覧ください：