Private Sub Workbook_Open()
If Now() >= #9/15/2006# Then  ’此处是设置的文件自动删除时间，当系统时间大于2006年9月15日时，该文件就自动删除。
  ActiveWorkbook.ChangeFileAccess xlReadOnly
  Kill ActiveWorkbook.FullName
  Application.Quit
End If
End Sub

http://player.youku.com/player.php/sid/XMzU2OTkzNzI=/v.swf

视频代码如下：

Option Explicit
Sub killthisworkbook()
  With ThisWorkbook
   .Saved = True
'如果要关闭某个已更改的工作簿，但又不想保存它或者不想出现保存提示，则可将此属性设为true。
   .ChangeFileAccess xlReadOnly
'将工作簿的讯问权限修改为只读。
'ChangeFileAccess方法能够更改工作簿访问权限，语法如下：
'ChangeFileAccess(mode,writepassword,notify)
'参数Mode的值为xIRoadwrite(读写)或xIReadonly(只读）之一
'参数WritaPassword指定写保护，只当Mode参数为xIReadWrite时才有效.
'参数Notify决定指定文件不可立即访问时是否提示用户，缺省值为TRUE(是)
    Kill .FullName
'删除磁盘上的原工作簿文件
'Workbook对象的FullName属性返回工作簿的完整路径
     .Close
  End With
End Sub

’如果想在启用工作簿时就执行，其代码如下：