如何限制Excel在非固定电脑上的使用期限？

楼主 gvntw	Q：如何限制Excel在非固定电脑上的使用期限？ A：代码如下 Sub Auto_Open() Dim fs, d, s Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(ThisWorkbook.Path))) s = d.serialnumber '磁盘序列号 If s = -1111111111 Then Exit Sub '要使用的电脑磁盘序列号 Dim FirstDate, de, days FirstDate = Date de = GetSetting("XXX", "YYY", "date", "") '从注册表取值 If de = "" Then '如果取不到值 SaveSetting "XXX", "YYY", "date", FirstDate '把日期保存到注册表 MsgBox "本文件可使用60天，今天是第1次使用", , "提示" Else days = Date - CDate(de) '计算文件使用的天数 If days > 60 Then '如果文件使用超过60天 MsgBox "已超过使用期限，本文件将自杀", , "警告" ThisWorkbook.ChangeFileAccess xlReadOnly '改为只读属性 Kill ThisWorkbook.FullName '自杀 ThisWorkbook.Close False '关闭不保存 End If MsgBox "本文件已使用" & days & "天，还有" & 60 - days & "天可使用", , "提示" End If End Sub
2楼 omnw	很好,正准备用这样的东东,一下就找到了,谢谢版主!!
3楼洋五月	限制的是新手
4楼刘志文	学习了!!
5楼 522922078	学习！！！！！！！
6楼 gvntw	呵呵，Excel 的保护本来就很脆弱的，但应该可以限制 95% 以上了。
7楼 ggsmart	经典！实在经典，寻找了很久的东西在这里得到解决了！感谢gvntw! ====
8楼 opelwang	感谢分享。如果不是在本机的电脑磁盘，而是在公司局域网络平台上，用一个用户名来使用，其它用户打开时限制使用次数。如何实现呢？
9楼 gvntw	可以设置在打开时弹出一个窗体，用于输入用户名，如果不是指定的用户，则在一个辅助单元格中累计打开次数，再判断这个次数，以决定是否让用户打开文件。
10楼 yd0209	感谢版主提供！
11楼 tiange_yh	版主我的硬盘系列号为 PVF804Z31X8HRN 代人代码中打开文件的时候怎么会提示使用天数呢如何限制Excel在非固定电脑上的使用次数呢麻烦版主给个代码谢谢 Book1.rar
12楼 gvntw	Dim fs, d, s Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(ThisWorkbook.Path))) s = d.serialnumber '磁盘序列号 Msgbox s 用上面的代码试试文件所在盘的系列号多少。
13楼一花一世界	是基于VBA来编的吗，如果用户禁用宏，是不是就不发挥作用了？
14楼 donod	請問如何在日數中加上以時、分、秒為限時單位?謝謝版大!
15楼 7786910	感谢版主提供！
16楼 lrlxxqxa	这个真是很实用的功能。
17楼 engyoho	谢谢，学习一下！
18楼 wqfzqgk	这个东东没多大用处，况且很好破解，还是用VSTO的文档级来做好一些，因为那是看不到代码的
19楼 7786910	学习！
20楼 jiahua1010	这个东西有的时候还是挺好用的！
21楼 sunq1117	好经典的功能啊
22楼 hhy0206	谢谢，拿来试一试。
23楼 YANG5555	经典！实在经典！
24楼鸿恒之心	好东西啊。
25楼悠悠雨
26楼 peter-chen	如果有多哥硬盘呢?是否其中一个盘符合即可? 能否做到任何一个盘不符合即删除文件所在目录包括子文件夹下甚至指定盘符下的所有EXCEL 文件??谢谢
27楼墨香雪	不管别人评价为何，支持是我对此贴不便的情怀
28楼 danysy	好，学习了，谢谢
29楼疯铃伊甸	学习了