Используйте случай Workbook_Open:
Приватное Sub Workbook_Open ()
Если теперь > dateserial (2010, 8, 27) после этого destruct_macro
Подводная лодка конца