电脑教程
位置:首页>> 电脑教程>> office教程>> excel打不开宏怎么办?

excel打不开宏怎么办?

  发布时间:2022-12-22 09:52:36 

标签: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即可

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com