摘要： 例如我想到2013年3月2号後自动删除一个excel表格，在表格中建了个宏叫Macro1 具体如下：
Sub Macro1()
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Dim datee As Date
datee ...
例如我想到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表格还没有删除!我不是电脑的管理员，是用户这不会影响吧?
把宏的第一句删除,变成:
Excel VBA如何根据姓名自动插入照片
Excel VBA如何根据姓名自动插入照片 一、前提条件 在Excel的单元格中，已输入人物的姓名，并且，在姓名的下面，留有空的单元格待插入相应的图片。 如下图一样。比如，B1是姓名，而B3则是要根据张三这个姓名，自动将张三这个人的照片插入到B3中。其它以此类推。 这得使用VBA来完成。 同时，人物的照片所在的文件夹，和Excel工作薄，在相同的路径，比如，下图的位置。 另外，每个员工的照片的名称，都是按照员工的姓名来命名的，如下图。 像这样的问题需求，是具备一定规律的，因此，能使用VBA来完成。 二、实
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即可
EXCEL集成工具箱使用教程
EXCEL集成工具箱使用教程 Excel集成工具箱是著名微软办公软件EXCEL（Microsoft Office for EXCEL）增强型插件。包括190个菜单功能和100个左右自定义函数，集290个工具于一身，但体积小于9MB。当安装集成工具箱后，如果您使用Excel 2003，则将产生【工具箱】菜单，包括190多个子菜单；如果您使用Excel 2007或者2010，将产生【集成】与【工具箱】功能区 本工具箱190个菜单工具主要功能简介如下： 分类 功能名称 功能介绍 综合工具箱 【简体转繁体】 将选
