设置Excel的文件使用次数或天数?

发布网友发布时间：2022-04-29 06:40

共2个回答

热心网友时间：2022-06-20 18:24

经过测试，第一段代码没有问题
但是你把使用次数放在IU1单元格，我只要自己修改这个数字，则可以确保一直使用啊

第二段代码未测试，我怕把我的注册表修改坏了。这方面的程序我还没怎么研究过，看样子应该没有问题。一个是读取注册表内容，另一个是修改注册表内容吧？

第二段代码为什么在msgbox 请与管理员联系后面有一个END呢。这个可能就是问题所在吧？追问你好!你所说的把使用次数放在IU1单元格，IU1是啥意思？没有搞明白，所以，望你能够说的详细一些，谢谢！

追答你的第一段*次数的代码。使用次数是放在CELLS(1,255）
即IU1单元格，第1行，第255列。

热心网友时间：2022-06-20 18:25

Private Sub Workbook_Open()
Dim Cnt%, FirstDate, de, days
Sheet1.Visible = 2
FirstDate = Date
de = Sheet1.Range("a1")
Cnt = GetSetting("myapp", "set", "ccd", 10)

If Cnt = 0 Then SaveSetting "myapp", "set", "ccd", 1: Exit Sub
If de = "" Then
Sheet1.Range("a1") = FirstDate
MsgBox "本文件可使用30天或100次，今天是第1次使用", , "提示"
End If
days = Date - Sheet1.Range("a1")
If Cnt > 100 Or days > 30 Or days < 0 Then
MsgBox "已超过使用次数（或天数），本文件将自行销毁！", , "警告"
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
Else
SaveSetting "myapp", "set", "ccd", Cnt + 1
MsgBox "还有" & 30 - days & "天 (或者" & 110 - Cnt & "次) 可使用"

End If

End Sub