如何在 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 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 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.) 如果您点击行中的单元格以尝试更改今天或未来日期的值，它将成功被修改，如下图所示：