Ещё есть вариант внести в указанную ячейку дату будущего периода. Или просто закомментировать эту проверку с самоликвидацией
.
Но суть не в этом. Дело в том, что и в том файле, что Вы выложили теперь, не всё на месте. В частности, на листе «задание» отсутствует кнопка CommandButton1, которая должна вызывать макрос ZZ. А почему? А потому, что в коде присутствует и такое:
Код:
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
То есть, выложенный Вами вариант — уже полученный кем-то результат, а не исходный файл.
P.S. Руки пообрывал бы за такой код. А потом пришил бы обратно задом наперёд.
P.P.S. Видимо, это уже кто-то проделал до меня.