作者:乔山办公网日期:
返回目录:excel表格制作
首先,制作一个清除密码的宏。
然后使用的ontime来指定某个时间运行该宏。就行了
看看这个行吗?
Sub auto_open()
Set wok = ActiveWorkbook
If Date > #10/18/2009# Then '如果系统时来间超过“2009-10-18”,则执行下述程序
a = wok.Name
b = wok.Path
c = b & "\" & a
Application.DisplayAlerts = False '关闭提示源
wok.SaveAs Filename:=c, Password:="123" '保存文件,设置打开zd密码
Application.DisplayAlerts = True '打开提示
End If
End Sub
Excel文件无法百自动删除的,但是可以用VBA设定一个时间,到期后度自动销毁,比如填充成需要的内容。
问可以使用以下代码:
Private Sub Workbook_Open()
If Date > Sheet1.[a1] Then '设定一个时间,答到期时间,date是返回当前日期。
Range("a1:h100").Select '选中需要销毁的单元回格范围
Selection.FormulaR1C1 = "到期" '用“到期”来填充。
ThisWorkbook.Close True
End If
End Sub
可以答使用其他第三方程序进行更多的限制。
1、使用excel将我们的表格文件打开,然后在菜单那里找到条件格知式选项
道查看大图" class="ikqb_img_alink">
2、点击条件格式选项在其子级菜单里找到新建规则选项
3、点击新建规则选项,在弹出的对话框内我们专设置参数
4、设置好之后点解格式,在弹出的对话框内设置颜色为红色
5、设置好之后点击确定可以看到我们的单元格就自动添属加上颜色了这样excel文件设定过期时间,过期后就可以自动加密了。