excel打不开宏怎么办？

　　例如我想到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即可