例如我想到2013年3月2號(hào)後自動(dòng)刪除一個(gè)excel表格，在表格中建了個(gè)宏叫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
但這個(gè)宏執(zhí)行不了，2013年3月4號(hào)這個(gè)excel表格還沒有刪除！我不是電腦的管理員，是用戶這不會(huì)影響吧?
把宏的第一句刪除,變成:
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下面
宏名取什麼呀？輸入完成後怎麼去查看有沒有設(shè)置成功？用什麼宏名去查看源代碼？
這個(gè)的宏名稱就是Workbook_Open,是excel內(nèi)置的一個(gè)過(guò)程..在你打開文件的時(shí)候執(zhí)行宏..
如果你打開的日期超過(guò)3/2/2013,這個(gè)文件在打開的時(shí)候即被刪除.
你可以復(fù)制這段代碼到任何一個(gè)空文件里,測(cè)試,切記不要放到你重要的文件去測(cè)試.
看紅代碼按ALT+F8即可
喜歡 
頂
難過(guò)
囧
圍觀
無(wú)聊
