Hello，大家好，今天跟大家分享下我們如何在Excel中實現，數據到期后自動消失的效果，在這里跟大家分享2種解決方法，一種是利用vba代碼，另一種是利用條件格式，它們的操作也都非常簡單，對照操作都可以設置成功，下面就讓我們來學習下吧！
一、代碼
首先我們需要復制下方的代碼，然后點擊【開發工具】找到【Visual Basic】在跳出的界面中我們雙擊最下方的【ThisWorkbook】，然后將代碼直接粘貼在右側的空白區域中，然后將這個界面關閉掉即可，至此就設置完畢了。
Private?Sub?Workbook_Open()
Application.DisplayAlerts?=?False
If?Date?=?"2021/9/10"?Then?Sheets("sheet2").Delete
Application.DisplayAlerts?=?Tru
End?Sub
這個代碼的作用是將于2021年9月10號刪除sheet2這個工作表。需要注意的是sheet2是VB界面中的名稱，也就是工作表最原始的名稱。如下圖，我們可以看到Sheet2（銷毀數據），所以在這里才會在Sheets("sheet2").Delete這行代碼中出現sheet2，而不是【銷毀數據】這個工作表名稱。至于數據何時消失，我們只需要更改2021/9/10這個日期的值即可。
最后需要注意的是我們需要將文件另存為可以保存宏代碼的格式，一般是另存為【xlsm】格式。這個方法也有一定的缺陷，現在很多公司在安全策略上都已經禁止電腦運行宏，如果存在這樣的情況，文件有打不開的可能性。
二、條件格式法
條件格式這個方法相對于VBA，它并不是將數據刪除了，而是為數據設置了格式，將其看不到罷了，因為數據還存在，所以我們需要對單工作表設置保護，防止數據到期后還能繼續使用。
條件格式的特點是：當條件成立就運行我們設置的格式，條件不成立就不做任何更改。所以條件格式能否成功的關鍵就是條件如何設置。
首先我們選擇需要設置的數據區域。然后找到【條件格式】選擇【新建規則】點擊【使用公式確定要設置的格式】隨后在下方將公式設置為：=TODAY()>44449，然后點擊【格式】在【數字】中找到【自定義】將類型設置為;;;需要注意的是這3個分號，需要在英文輸入法下輸入。
在這里today函數的作用是獲取當天的日期，44449就是2021/9/10對應的數值，這個函數的意思就是：今天的時間大于2021年9月10號就代表條件成立，運行我們設置的格式。在這里我們將格式設置為了3個分號，這樣的話單元格就會不顯示任何內容，但是這些數據其實還是存在的，點擊數據的時候，在編輯欄是可以看到數據的，所以緊接著我們就需要為表格設置保護了。
這個就比較簡單了，我們只需要選擇點擊點擊【審閱】找到【工作表保護】將【選定鎖定單元格】與【選定解除鎖定的單元格】的對勾去掉，然后設置一個密碼，這樣的話就無法選中單元格，無法選中單元格也就不能在編輯欄中看到數據了，同樣也無法復制數據了，至此設置完畢。
