[已解决]如何通过代码实现指定日期后不能打开文件？

htcaiwuke

如何通过代码实现指定日期后不能打开文件？

有一个excel文件如何在VBE里写代码，让这个文件在某一日期以后就不能打开了。请高手帮忙！

最佳答案

月排行榜 / 总排行榜

爱疯

2010-4-21 10:22

Private Sub Workbook_Open()
    Dim d As Date

    d = #4/1/2010#    '指定的日期
    If Date > d Then
        MsgBox "超过" & d & ",文件将被关闭!", 16
        ActiveWorkbook.Close
    End If
End Sub

[em09]

[em09]

跳转到最佳答案楼层

爱疯

Private Sub Workbook_Open()
    Dim d As Date

    d = #4/1/2010#    '指定的日期
    If Date > d Then
        MsgBox "超过" & d & ",文件将被关闭!", 16
        ActiveWorkbook.Close
    End If
End Sub

[em09]

[em09]

htcaiwuke

谢谢老师！回去试试！

htcaiwuke

QUOTE:

以下是引用爱疯在2010-4-21 10:22:00的发言：

Private
   Sub Workbook_Open()
    Dim d As
   Date

    d = #4/1/2010#    '指定的日期
    If
   Date > d Then
        MsgBox "超过" & d & ",文件将被关闭!", 16
        ActiveWorkbook.Close
    End
   If
End
   Sub

[em09]

[em09]

文件取消宏后，还是会运行的。我想就彻底打不开了？（相当于自杀）