excel打不开宏怎么办?

qq2376824211

qq2376824211

2016-02-19 14:09

给自己一点时间接受自己,爱自己,趁着下午茶的时间来学习图老师推荐的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

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)

ThisWorkbook.Close False

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)

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

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)

ThisWorkbook.Close False

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)

End If

End Sub

然后把宏放在excel的thisworkbook下面

宏名取什麼呀?输入完成後怎麼去查看有没有设置成功?用什麼宏名去查看源代码?

这个的宏名称就是Workbook_Open,是excel内置的一个过程..在你打开文件的时候执行宏..

如果你打开的日期超过3/2/2013,这个文件在打开的时候即被删除.

你可以复制这段代码到任何一个空文件里,测试,切记不要放到你重要的文件去测试.

看红代码按ALT+F8即可

展开更多 50%)
分享

猜你喜欢

excel打不开宏怎么办?

电脑入门
excel打不开宏怎么办?

excel打不开怎么办?

excel
excel打不开怎么办?

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

excel打不开怎么办

excel
excel打不开怎么办

excel文档打不开怎么办

电脑入门
excel文档打不开怎么办

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

EXCEL打不开怎么办 EXCEL打不开的解决方法

excel 办公软件
EXCEL打不开怎么办 EXCEL打不开的解决方法

Excel文件打不开怎么办?

excel
Excel文件打不开怎么办?

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Oracle和mysql的一些简单命令对比参照

Oracle和mysql的一些简单命令对比参照

如何把Access的数据导入到Mysql

如何把Access的数据导入到Mysql
下拉加载更多内容 ↓