例如我想到2013年3月2號後自動刪除一個Excel表格，在表格中建了個宏叫Macro1

　　具體如下：

　　Sub Macro1()

　　PRivate Sub Workbook_Open()

　　application.DisplayAlerts = False

　　Dim datee As Date

　　datee = #3/2/2013#

　　If Date > datee Then

　　ActiveWorkbook.ChangeFileaccess xlReadOnly

　　Kill ActiveWorkbook.FullName

　　ThisWorkbook.Close False

　　End If

　　End Sub

　　但這個宏執行不了，2013年3月4號這個excel表格還沒有刪除!我不是電腦的管理員，是用戶這不會影響吧?

　　把宏的第一句刪除,變成:

　　Sub Workbook_Open()

　　Application.DisplayAlerts = False

　　Dim datee As Date

　　datee = #3/2/2013#

　　If Date > datee Then

　　ActiveWorkbook.ChangeFileAccess xlReadOnly

　　Kill ActiveWorkbook.FullName

　　ThisWorkbook.Close False

　　End If

　　End Sub

　　然后把宏放在excel的thisworkbook下面

　　宏名取什麼呀?輸入完成後怎麼去查看有沒有設置成功?用什麼宏名去查看源代碼?

　　這個的宏名稱就是Workbook_Open,是excel內置的一個過程..在你打開文件的時候執行宏..

　　如果你打開的日期超過3/2/2013,這個文件在打開的時候即被刪除.

　　你可以復制這段代碼到任何一個空文件里,測試,切記不要放到你重要的文件去測試.

　　看紅代碼按ALT+F8即可