Удаление листов из книги при открытии файла

[amadeus017]

Доброго времени суток, уважаемые форумчане!

Есть одна задача, что все что наработано мною, не должно остаться другим пользователям без моего ведома без моего согласия, т.е., должно быть удалено в случаи чего неблагоприятного. На одном из форумов, нашел подобную тему http://www.excelworld.ru/forum/10-36894-1 но это не то, что хотелось бы. В файле по ссылке указанной выше, следующий код (ниже), который я пробовал изменить под себя.

Private Sub Workbook_Open()
    Dim sh As Worksheet, i As Long
    With Sheets("0")
        If Date = Fix(.Range("Z3").Value) And .Range("Z3").Value <> "" Then
            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 20
                Sheets.Add After:=Sheets(Sheets.Count)
                ActiveSheet.Name = "Лист" & i
            Next i
            .Range("Z3").ClearContents
        End If
    End With
End Sub

К этому коду есть "претензии":

1 - Код не запускается при открытии книги и не сохраняет данные при выполнении, а спрашивает "сохранить изменения или нет" при закрытии файла (хотелось бы, чтобы сам все сохранил, не спрашивая).
2 - Листы в книге (в коде) не называются "sheets", а в реальном файле, все листы называются по разному, хотелось бы иметь такие же название листов (желательно, но не обязательно).
3 - Дата и время указаны на отдельном листе, лист конечно можно скрыть, но а можно дату и время прописать в самом коде?

[Elixi]

Жил-был Челoвек. Нo вдруг взял и утoнул.
Неблагoприятнoе делo.
Нет у негo бoльше ни "ведoма" ни "сoгласия".
Встала не тoлькo егo рабoта. Исчезли данные.
Интереснo былo бы знать на чтo сoгласился бы, если былo бы "ведoма".

[amadeus017]

Сообщение от Elixi

Жил-был Челoвек.

Весьма тронут Вашими словами, но литературный кружок, в другом форуме.

[Aleksandr H.]

Не могут макросы спасти что-бы не досталось врагу. Запуск макросов отключается, защита паролем проэктов - снимается. Как говорил известный человек здесь - ты больше времени потратишь на установку защиты, чем я на её обход. Обфусцируйте код по максимуму

[amadeus017]

Можно в код вписать запуск макроса при его открытии?
Т.е. файл откроется, выполнится и сохранится.

Такое возможно?

[Hugo121]

Можно в код вписать запуск макроса при его открытии?

В Вашем первом посте такой код