Office中国论坛/Access中国论坛

标题: [求助]帮忙添加程序 [打印本页]

---

作者: 鱼家女    时间: 2007-5-20 19:42
标题: [求助]帮忙添加程序
为了保护自己的文档用这个程序很好，可就是没有到期提示功能，请求朋友给加上还剩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编辑过]

---

作者: 方漠    时间: 2007-5-21 01:06
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

---

作者: 鱼家女    时间: 2007-5-21 06:46
谢谢方漠！不过有0天和-1天出现，你能把这些没意义的天数修改不要吗？

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3