日期一到就自動刪除指定的巨集

Sheet1程式區裡放著程式碼，要如何在指定的日期到期時突破VBAProject屬性密碼保護，自動刪除Sheet1程式區的程式碼，簡單來說，只要指定的日期一到，不需提醒就自動刪除指定的工作表巨集，VBAProject屬性有密碼保護  ,就無法刪除Sheet1程式區的程式碼.

做法 -
1. 先在活頁簿工作表中插入Excle 4.0巨集表,命名為"4.0"
2. 在ThisWorkbook 中加入以下 Workbook_Open 程式碼:- 
Private Sub Workbook_Open()
    Sheets("4.0").Visible = 0              '工作表深度隱藏
    Dim i As Integer
    If Sheets("4.0").Range("A1") = "" Then '啟動範本
        Sheets("4.0").Range("A1") = Date   '輸入日期
    End If
End Sub
3. 在SHEET1中加入以下程式碼:-
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Date - Sheets("4.0").Range("A1") >= 15 Then Exit Sub  '加入此條件
End Sub
'存檔為範本給指定人仕/客戶.