[求助]帮忙添加程序

鱼家女

为了保护自己的文档用这个程序很好，可就是没有到期提示功能，请求朋友给加上还剩10天是出现“还有10天使用”的对话框提示语句。先谢谢！

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Dim datee As Date
datee = #1/1/2008#
If Date > datee Then
  ActiveWorkbook.ChangeFileAccess xlReadOnly
   Kill ActiveWorkbook.FullName
   ThisWorkbook.Close False
   End If
End Sub

[此贴子已经被作者于2007-5-20 11:47:07编辑过]

方漠

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Dim datee As Date
datee = #1/1/2008#

If DateDiff("D", Date, datee) <= 10 Then MsgBox "您还可以使用 " & DateDiff("D", Date, datee) & " 天.", vbExclamation

If Date > datee Then
   ActiveWorkbook.ChangeFileAccess xlReadOnly
   Kill ActiveWorkbook.FullName
   ThisWorkbook.Close False
End If
End Sub

鱼家女

谢谢方漠！不过有0天和-1天出现，你能把这些没意义的天数修改不要吗？