I'm working on a user form that I'd like to send as draft for others to review, but I'd like my draft copies to expire after a week, or a few days, or a set number of days. Here's the code I've come up with:

Private Sub Workbook_Open()

    Dim AllowedDays As Integer
        AllowedDays = 7
    Dim ExpireDate As Date, BeginDate As Date
        ExpireDate = Now
        BeginDate = DateValue("Mar 2, 2013")
        
    If ExpireDate - BeginDate > AllowedDays Then
        ActiveWorkbook.Close Saved = True
    Else
    
    End If

End Sub
VBA Project would be protected for viewing, and all worksheets except the userform launch button are xlSheetVeryHidden. I realize the whole file could be cracked later, but this isn't sensitive information, I'm just looking to take some basic steps to protect my work.

Has anyone used something like this?