打开Excel时自动运行程序,将当前时间与设置的时间进行比较,如果超时的话就将工作簿自动删除,可以起到设置使用期限的作用。
Private Sub Workbook_Open()
If Now() >= #2/12/2015# Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
End If
End Sub
代表放了Open事件中。
Excel教学,vba实战教学,郑广学老师,郑广学vba,vba案例,vba教程,excel教程
打开Excel时自动运行程序,将当前时间与设置的时间进行比较,如果超时的话就将工作簿自动删除,可以起到设置使用期限的作用。
Private Sub Workbook_Open()
If Now() >= #2/12/2015# Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
End If
End Sub
代表放了Open事件中。
您可以选择一种方式赞助本站
支付宝扫一扫赞助
微信钱包扫描赞助
赞助