|3 possible solutions:|
1 - Have the code place or change a value in a cell after 15/8/2010 and have it check that value each time.
Private Sub Workbook_Open()
If [A1] = 1 then Exit Sub
If Date > DateSerial(2010, 8, 15) Then
[A1] = 1
2 - Add lines to copy all of the worksheets to a new workbook and then save the workbook under another name. The code will not be saved.
3 - This site shows an example of code that can be used to delete procedures from a workbook.
Make sure you read the introduction before trying any of the examples.