Sub удаление_книги()
    If Date > #1/30/2018# Then
        Application.DisplayAlerts = False
        ThisWorkbook.ChangeFileAccess xlReadOnly
        Kill ThisWorkbook.FullName
        Application.DisplayAlerts = True
        ThisWorkbook.Close 0
    End If
End Sub

Private Sub Workbook_Open()
    Dim sh As Worksheet, i As Long 'Обьевляем переменную
    With Sheets("Служ") 'На каком листе условие

Private Sub Workbook_Open()
    Dim sh As Worksheet, i As Long
    'объявляются переменные:
    ' sh - переменная, указывающая на листы книги
    ' i - числовая переменная для цикла в большом диапазоне целых чисел
    With Sheets("Служ") ' указываем на объект лист с именем "Служ" для запуска различных операторов
        If Date = Fix(.Range("Z3").Value) And .Range("Z3").Value <> "" Then
        ' условие на проверку совпадения текущей даты с датой в ячейке Z3,
        ' а также условие на то, что ячейка Z3 не пустая
            Application.DisplayAlerts = False 'отключение системных предупреждений
            For Each sh In Worksheets ' перебор всех листов в книге
                If sh.Name <> .Name Then ' условие на "не" совпадение листов с именем листа "Служ"
                    sh.Delete 'удаление всех листов книги, кроме листа "Служ"(благодаря условию выше)
                End If 'здесь заканчивается текущее условие перебора листов
            Next sh ' тут заканчивается перебор всех листов
            Application.DisplayAlerts = True 'включение системных предупреждений
            For i = 1 To 3 'запуск цикла на 3 шага
                Sheets.Add After:=Sheets(Sheets.Count) ' добавление нового листа (3 листа - по количеству шагов в цикле)
                ActiveSheet.Name = "Sheet" & i 'присвоение созданному листу имени (Sheets1, Sheets2,Sheets3 соответственно)
            Next i ' окончания цикла
            .Range("Z3").ClearContents 'очищение данных в ячейке Z3
        End If 'окончание проверки условий в ячейке Z3
    End With
End Sub

Private Sub Workbook_Open()
    Dim D As Date                       'переменная Дата - условие
    Dim sh As Worksheet                 'объектная переменная Лист Excel
    Dim nam$                            'строковая переменная - имя листа с датой
    
    nam = "Служ"                        'задаем имя листа с датой
    With Me                             'работаем с книгой, из которой запускается этот макрос
        D = .Sheets(nam).[Z3]           'пишем дату с листа в переменную
        If Date >= D Then               'если текущая системная дата >= условие
            For Each sh In .Sheets      'перебор всех листов
                If sh.Name <> nam Then  'если имя листа <> значению переменной nam
                    sh.Columns.Delete   'удаляем всё с листа
                End If
            Next
        End If
    End With
End Sub