Prevent Editing after Date and Force Enable Macros

[efaden]

So I have a Workbook that I want to make read-only/protect after a certain date. I also want to force the user to have macros enabled. So far I have the following script, but despite changing it to read-only it doesn't seem to do anything. I have also tried to enable protection on the sheets after that date, but am getting errors. Can anyone help me out?

-Eric

Private Const ExpirationDate As Date = #4/5/2099#

Private Sub Workbook_Open()
    ' Timebomb
    If CDate(Now) >= CDate(ExpirationDate) Then
        ThisWorkbook.ChangeFileAccess (xlReadOnly)
        ThisWorkbook.Worksheets("Sheet").Protect Password:="NoAccess", UserInterfaceOnly:=True
        ThisWorkbook.Protect Password:="NoAccess", UserInterfaceOnly := True
    End If

    ' Force Enable Macros
    ThisWorkbook.Worksheets("Sheet").Visible = xlSheetVisible
    Sheets("START").Visible = xlVeryHidden

    ThisWorkbook.Worksheets("Sheet").Activate
End Sub

' Force Enable Macros
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("START").Visible = xlSheetVisible
    ThisWorkbook.Worksheets("Sheet").Visible = xlVeryHidden
    ActiveWorkbook.Save
End Sub

[xladept]

Attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are demonstrated, mock them up manually if needed. Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

[efaden]

See attached....

Basically START should be the only sheet visible if macros are disabled, and it should be hidden and the rest enabled if macros are enabled.

Also after the date in the script I need to make Sheet un-editable after the date in the script.

-Eric