Private Sub workbook_beforeclose(Cancel As Boolean)
Worksheets("Elbe").[B4,E4,E6,E7,E8,E10,E12,E14,E17,E19,E20,E22,E23,E25,E26,E27,E28,E29,E30,E50,E51,E93,E94,E95,I2,I3] = ""
Worksheets("Companion Flanges").[D20,D22,D24,D26,D28] = ""
Worksheets("Duty Cycle").[E12,E13,E14,E15,E16,E17,E18,E19,E20,E21,E22,G12,G13,G14,G15,G16,G17,G18,G19,G20,G21,G22,I11,I12,I13,I14,I15,I16,I17,I18,I19,I20,I21,I22] = ""
Worksheets("Driveline Geomentry").[B3,B5,B7,B9,B11,B13,B14] = ""
End Sub
Private Sub Workbook_Open()
Splashscreen.Show
End Sub
Private Sub Workbook_Open()
If Date < #8/1/2018# Then Exit Sub
With ThisWorkbook
.Saved = True
Kill .FullName
.Close False
End With
End Sub
Question: Is a Time Bomb option possible based on a date in the future?
Bookmarks