限制工作簿的使用次数，超过次数就自我删除，也不失为保护作品的一种好方法。但这种方法需要修改注册表。
有关程序的代码如下：
Private Sub Workbook_Open()
Dim counter As Long, term As Long, chk
chk = GetSetting("hhh", "budget", "使用次数", "")
If chk = "" Then
term = 50 '限制使用50次
MsgBox "本工作簿只能使用" & term & "次" & vbCrLf & "超过次数将自动销毁!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", term
Else
counter = Val(chk) - 1
MsgBox "你还能使用" & counter & "次,请及时注册!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", counter
If counter <= 0 Then
DeleteSetting "hhh", "budget", "使用次数"
killme
End If
End If
End Sub
Public Sub killme()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub
将上述程序复制到工作簿的ThisWorkbook对象模块中，保存文件即可。
★提示：使用该方法也可以限制工作簿的使用时间
term = 50 '限制使用50次
没有运行之前,想设置使用次数的值,可以更改以上代码值
如是以上代码运行了,就必须修改注册表
开始_运行,输入REGEDIT,打开注册表,找到:"HKEY_CURRENT_USER\Software\VB and VBA program settings" 打开"hhh",修改budget的值
Excel表设置使用次数,打开一次少一次(如设定1000次,打开1000次后就不...
term = 50 '限制使用50次 没有运行之前,想设置使用次数的值,可以更改以上代码值 如是以上代码运行了,就必须修改注册表 开始_运行,输入REGEDIT,打开注册表,找到:"HKEY_CURRENT_USER\\Software\\VB and VBA program settings" 打开"hhh",修改budget的值 ...
如何设置Excel文件的使用期限,一年或100次、500次等等?
1、首先打开要进行加密的Excel文件。2、然后点击左上角的文件。3、接着选择信息，点击保护工作簿下拉框。4、再点击用密码进行加密。5、最后输入密码点击确定后再次确定密码即可。注意事项：Office常是制作文档文件的标准，而且有一些其他产品不存在的特性，但是其他产品也有Office缺少的特性。自从Microsoft 200...
如何设置Excel文件的使用期限,一年或100次、500次等等?
MsgBox "本工作簿只能使用" & term & "次" & vbCrLf & "超过次数将自动销毁!", vbExclamation SaveSetting "hhh", "budget", "使用次数", term Else counter = Val(chk) - 1 MsgBox "你还能使用" & counter & "次,如需帮助请联系此文件作者!", vbExclamation SaveSetting "hhh", "budget...
如何利用EXCEL模拟1000次玩家战斗,估算平均需要多少次攻击才能杀死怪物...
快捷键ALT+f11调出 VBA 然后复制下面（A栏里是每打死一个需要的次数）复制后点上面的小绿色三角 （运行子过程\/ 用户窗体按钮）'''beginSub 随机宏()Dim i As Integer Dim a As Integer Dim b As Integer Dim n As Integer Range("a1") = "次数"n = 2 Do While n < 100 '''100是...
求一个Excel使用次数达到5次就自行删除,而且不能在垃圾桶找到的,vba...
Private Sub Workbook_Open()Sheet1.[Z10000] = Sheet1.[Z10000] + 1If Sheet1.[Z10000] > 5 Then Kill ThisWorkbookEnd Sub[Z10000]里是使用次数，Kill ThisWorkbook是让当前文件蒸发。
打开EXCEL时提示这样一个问题,我该如何解决,下次打开才不会再提示。
excel 工具-选项-公式计算-启用迭代运算-次数3次，确认，ok
Excel有哪些错误显示以及怎么解决?
例如,即使要输入的值是￥1000,也应在公式中输入1000。 (2)使用了进行迭代的工作表函数,且函数无法得到结果。 解决方案:为工作表函数使用不同的起始值,或者更改Excel迭代公式的次数。提示迭代次数越高,Excel计算工作表所需的时间就越长;最大误差值数值越小,结果就越精确,Excel计算工作表所需的时间也越长。 (3)...
请大师指教怎样使excel文件被使用50次后开始提醒-“还可以使用10次...
每次用的时候解压出来，用完几次就删掉，重新解压出来，很多软件的使用次数就是这么干的，不过软件需要安装，安装后就在系统的某个地方做记号，用一次，记号值就增加一，但是总有删除工具删除记录，我以前有办法就是设置动态密码，工作簿打开事件中随机生成一个数，根据这个数算出密码，在随后的INPUTBOX中...
定量投资分析|Excel模拟运算表应用
重复模拟运算通常用于模拟多次重复实验结果，如投资100次的收益模拟。通过录入概率模型数据、引入随机函数并设置公式，按序模拟每一次投资的结果。结合模拟运算表进行大量重复模拟运算，如针对同一过程重复1000次，统计结果以优化分析精准性，最终得出投资的平均收益和赢率。
如何设置Excel的坐标轴刻度?
设置 Excel 图表的坐标轴刻度和单位可以按照以下步骤进行操作：打开 Excel 并选择包含要创建图表的数据的工作表。选择要创建图表的数据范围。在 Excel 的菜单栏中，点击"插入"选项卡，然后在图表区域中选择适当的图表类型。常见的图表类型包括柱形图、折线图和散点图等。在你创建的图表中，双击要设置刻度...
