分类：电脑/网络-软件-办公软件
问题：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