设定程序运行的次数

最新推荐文章于 2021-07-11 22:17:45 发布

amulee

最新推荐文章于 2021-07-11 22:17:45 发布

阅读量773

点赞数

分类专栏： VBA程序开发文章标签： date excel 存储

本文链接：https://blog.csdn.net/amulee/article/details/5578551

版权

VBA程序开发专栏收录该内容

23 篇文章 0 订阅

订阅专栏

Excel提供了一些注册表操作的语句，通过这些语句我们可以在注册表内存储一些信息。

比如下例，通过写入、读取注册表来限制程序运行次数。

Sub 设定程序运行次数() Dim Times Times = GetSetting("RnTime", "Set", "Times") If Len(Times) > 0 Then Times = CInt(Times) If Times = 0 Then MsgBox "该程序已经使用三次！" Exit Sub Else Times = Times - 1 MsgBox "该程序已经使用" & 3 - Times & "次。还有" & Times & "次使用机会" SaveSetting "RnTime", "Set", "Times", Times End If Else SaveSetting "RnTime", "Set", "Times", 2 '初次运行，设定可以使用三次 MsgBox "该程序可以使用三次，还有两次使用机会" End If '以下为主程序 MsgBox "主程序正在运行" End Sub

同样的思路，还可以限制期限。

Sub 设定程序运行时间() Dim Times Times = GetSetting("RnTime", "Set", "Times") If Len(Times) > 0 Then Times = CDate(Times) If Times < Date Then MsgBox "已超过时限" Exit Sub End If Else SaveSetting "RnTime", "Set", "Times", DateAdd("d", 29, Date) '初次运行，设定可以使用三次 MsgBox "该程序可以使用30天。有效期至" & DateAdd("d", 29, Date) End If '以下为主程序 MsgBox "主程序正在运行" End Sub