這個試用時間最好加密儲存，位置自己根據情況設定，每次開啟或關閉工作簿前進行存取，放在工作表啟用和取消啟用事件程式碼裡進行邏輯判斷

增加一個工作表，並輸入公式=NOW（）。並設定單元格格式。該工作表僅用來儲存開啟工作簿時的時間。然後在時間工作視窗中，執行如下操作，將工作表隱藏起來。然後按ALT+F11，調出VBA程式設計視窗。選中上側的Sheet1(Sheet1),同時右鍵執行檢視程式碼。貼入以下程式碼。我將檔案的使用終止時間設到了2019年12月31日，使用者可以自己調整此處。

Sub main()

Dim Mydate As Date

Dim Now As Date

Mydate = #12/31/2019# "設定檔案到期時間為2019年12月31日

Now = Worksheets(2).Cells(1, 1).Value

If Mydate > Now Then

MsgBox "本檔案將在" & Mydate & "到期！為不影響使用，請您按時續費。"

Else

MsgBox "本檔案已到期，即將關閉！"

Application.Quit

ThisWorkbook.Close savechanges:=False

End If

End Sub

Private Sub workbook_open()

Call Sheet1.main

End Sub