Use the Workbook_Open event:
Private Sub Workbook_Open()
If Now > dateserial(2010, 8, 27) Then destruct_macro
End Sub