[Iska]

Когда нажимаю включить, то все страницы закрываются и ничего не происходит. »

Потому что в коде тупо записана при открытии Рабочей книги проверка на текущую дату по сравнению с заданной в самой Рабочей книге:

Скрытый текст

Код:

Private Sub Workbook_Open()
td = Date
dd = Sheets("начало").Range("AX1")
If td > dd Then

    Sheets("задание").Visible = True
    Sheets("задание").Activate
    Sheets("задание").Unprotect ("migel2")
    Sheets("задание").Select
    Cells.Delete
    Sheets("задание").Range("A1").Select
    
    Sheets("проверка").Visible = True
    Sheets("проверка").Activate
    Sheets("проверка").Unprotect ("migel2")
    Sheets("проверка").Select
    Cells.Delete
    Sheets("проверка").Range("A1").Select
   
    ActiveWorkbook.Save
    ActiveWorkbook.Close

End If
End Sub

В AX1 на Рабочем листе «начало» стоит дата 1 февраля 2017 года. Если текущая дата больше заданной — макрос удаляет всё содержимое листов «задание» и «проверка», затем сохраняет Рабочую книгу. Если Вы, как пишете, хотя бы раз разрешили исполнение макросов для этой Рабочей книги после 1 февраля 2017 года, то что-либо пытаться искать в ней уже поздно. Вам нужен оригинальный файл. Если найдёте — выкладывайте, посмотрим.