如何在Excel中基于日期保護單元格？

如何在Excel中基于日期保護單元格？

通常，我們可以保護工作表以防止其他人編輯或修改單元格值，但是有時您需要根據日期保護單元格。 例如，我要保護其他單元格，但只允許修改今天日期的單元格值，如下面的屏幕截圖所示，本文將討論如何基于日期保護單元格。

使用VBA代碼保護除今天日期行以外的所有行

使用VBA代碼保護日期過去的所有行

僅允許修改等于今天的日期的行，以下代碼可以為您提供幫助，請按以下步驟操作：

1。 右鍵單擊要基于日期保護單元格的工作表選項卡，然后選擇 查看代碼 從上下文菜單中，彈出 Microsoft Visual Basic應用程序 窗口，請將以下代碼復制并粘貼到空白模塊中：

VBA代碼：保護除今天的日期行以外的所有行：

備注：在上面的代碼中，字母 E 是日期所在的列標題，“111111”是保護此工作表的密碼。 您可以根據需要更改它們。

2。 然后保存并關閉此代碼窗口。

（1.）如果單擊今天日期行以外的其他單元格，則會彈出提示框，提醒您無法編輯該單元格，請參見屏幕截圖：

（2.）如果單擊并編輯等于今天的日期的行，它將被成功修改，請參見屏幕截圖：

如果您需要保護日期已過的所有行，僅允許修改今天和將來的日期行，請應用以下VBA代碼：

1。 右鍵單擊要基于日期保護單元格的工作表選項卡，然后選擇 查看代碼 從上下文菜單中，彈出 Microsoft Visual Basic應用程序 窗口，請將以下代碼復制并粘貼到空白模塊中：

VBA代碼：保護所有行的日期已過：

備注：在上面的代碼中，數字 5 是日期所在的列號，“111111”是保護此工作表的密碼。 您可以根據需要更改它們。

3。 然后保存并關閉此代碼窗口。

（1.）如果單擊單元格日期已過，則會彈出一個提示框，提醒您無法編輯該單元格，請參見屏幕截圖：

（2.）如果單擊行的單元格嘗試更改今天或將來日期中的值，則將成功修改它，請參見屏幕截圖：