private Sub Workbook_Open()
If Date <= #2/5/2008# Then Exit Sub
MsgBox "文件已过期。"
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub
If Date <= #2/5/2008# Then Exit Sub
MsgBox "文件已过期。"
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub