如何用VBA设置EXCEL使用的有效期？[求助]

中國龍

以下是引用chengwei0730在2003-8-18 17:53:00的发言： TO:中国龙 非常感谢您的不吝指教! 还有一个问题想麻烦您一下: 我不想在第一次打开时出现提示信息, 而是在有效期限要到前5天开始每天出现提示信息,

您好: 程式碼加一句判斷式就行了 Sub CheckFileDate() Dim Counter As Long, LastOpen As String, Msg As String Chk = GetSetting("Chinese dragon", "Budget", "Date", "") If Chk = "" Then Term = 10 TermDate = DateSerial(Year(Now), Month(Now), Day(Now)) + Term SaveSetting "Chinese dragon", "Budget", "Date", TermDate Else If CDate(Chk) <= Now Then DeleteSetting "Chinese dragon", "Budget", "Date" KillMe End If If CDate(Chk) - Now < 5 And CDate(Chk) - Now > 0 Then MsgBox "本檔案只能使用到" & Chk & "日" & Chr(13) & "超過期限將自動銷毀" End If End If End Sub

chengwei0730

TO:中国龙 谢谢您的不厌其烦的解答! 如果您有空想麻烦您看看这个: 问题是运行过滚动字幕后却无法在工作表的单元格中输入内容.参见DOYYI发在论坛上的帖子"窗体字幕"

以下是引用doyyi在2003-8-6 13:51:00的发言：

cmrevol

let me try

kevin768

很不错,谢谢您,Chinese dragon

chengwei0730

TO:中国龙 你好! 突然想起这样一个问题: 能否应用上面的方法设置指定文件(其它文件)的使用期限呢? 该如何设置? 请指教!

中國龍

以下是引用chengwei0730在2003-8-22 10:04:00的发言： TO:中国龙 你好! 突然想起这样一个问题: 能否应用上面的方法设置指定文件(其它文件)的使用期限呢? 该如何设置? 请指教!

您好: 這個問題較複雜,需要在指定的文件上加載程式碼 另外一個問題是要判斷"指定的文件"上是否已經有Workbook_Open程式碼 附件內的兩個檔案請存放在同一個文件夾內 請直接執行工作表中的 Run 按鈕,在VBE視窗逐行執行會出錯 程式碼如下: Sub RunPro() Dim FName As String Dim wbk As Workbook Dim Modu, lLine On Error Resume Next FName = Application.GetOpenFilename(FileFilter:="Excel File(*.xls),*.xls") If VarType(FName) = vbBoolean Then Exit Sub End If Set wbk = Workbooks.Open(FName) Set Modu = wbk.VBProject.VBComponents.Add(1) '加載Module Modu.Name = "ChineseDragon" wbk.VBProject.VBComponents.Item(Modu.Name).CodeModule _ .AddFromFile (ThisWorkbook.Path & "\Code.txt") With wbk.VBProject.VBComponents("ThisWorkbook").CodeModule lLine = .ProcBodyLine("Workbook_Open", vbext_pk_Proc) If IsEmpty(lLine) Then 'Workbook_Open 不存在時 .InsertLines 1, "Private Sub Workbook_Open()" .InsertLines 2, "CheckFileDate" .InsertLines 3, "End Sub" Else lLine = .ProcBodyLine("Workbook_Open", vbext_pk_Proc) .InsertLines lLine + 1, "CheckFileDate" End If wbk.Save wbk.Close MsgBox "使用期限加載完成" End With End Sub 祝:愉快! gKGuJTuN.rar (7.11 KB, 下载次数: 291)

2003-8-22 13:01 上传

点击文件名下载附件
如何用VBA设置EXCEL使用的有效期？[求助]

chengwei0730

TO:中国龙 谢谢!

guweiping

太感谢了！

gwjkkkkk

感谢中国龙。

gwjkkkkk

你好，中国龙，请教一个问题，我发觉你的注册程序注册表项它在注册表的位置是固定的，就在HKEY_CURRENT_USER\Software\VB and VBA Program Settings下，可不可以在自己喜欢的任意位置写在注册表中呢，这样比较隐蔽一些，否则一个EXCEL有有效期，那么肯定在注册表的HKEY_CURRENT_USER\Software\VB and VBA Program Settings下写进了什么，可以监视这个位置就可以了。即使像你的EXCEL文件设置Term = 0，即只能使用一次，我只要在打开文件一次后，在注册表相关位置把日期任意修改成比当天大的数值，这样有效期的控制就在你手中了，以后打开文件也没有问题了。