Delete doc on specific date

[ExcelTheCell]

Hi,

well i know that one part is possible but the other part i'm not sure...

1part.
On auto open check if date is biger then 31.12.2011. If it is delete document without asking for aproval.

2.part
What if all macro's are disabled how can we enable them, beacuse if reader disables macro and activeX then document will not be deleted? Is there any solution for this?

tnx

 

[ExcelTheCell]

I got the code... just need to adjust it for the Word2007... can anyone help me?

Public bIsClosing As Boolean
Dim wsSheet As Worksheet
Sub HideAll()
Application.ScreenUpdating = False
For Each wsPage In ThisDocument.Pages
    If wsPage.CodeName = "Sheet1" Then
     wsSheet.Visible = xlSheetVisible
    Else
     wsSheet.Visible = xlSheetVeryHidden
    End If
Next wsSheet
Application.ScreenUpdating = True
End Sub
Sub ShowAll()
bIsClosing = False
For Each wsSheet In ThisWorkbook.Worksheets
    If wsSheet.CodeName <> "Sheet1" Then
     wsSheet.Visible = xlSheetVisible
    End If
Next wsSheet
Sheet1.Visible = xlSheetVeryHidden
End Sub

 

[ExcelTheCell]

ok, i have found how i can hide text..
http://www.online-tech-tips.com/ms-office-tips/word-hidden-text/

all i need is your help how can i call macro that will enter password that is placed to protect hiden text and unhide text....