- excel如何根据时间自杀如何编写VBA代码
- 如何编写A代码
- 在Thisworkbook模块中输入以下代码,那么在2011年2月11日以后打开文档,它就自杀了。要改变自杀日期,只要把第二行If语句后面的#2/11/2011#改为你希望的日期就好了。
Private Sub Workbook_Open()
If Date >= #2/11/2011# Then
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
End If
End Sub