限制Excel只能在本机运行,拷贝到其它机器运行时进行限制

peter-chen

很好，很强大！学习一下

coby001

原帖由 andysky 于 2009-2-8 12:31 发表

这个问题很容易解决的嘛
自己换硬盘前，改下代码就行了
几秒钟完成

  换硬盘有 2 种原因

1 自愿换的，比如 升级 电脑硬件，这时 可以改代码

2 被迫换的，比如 硬盘 出故障了，谁能保证硬盘一直不出故障？谁能预测硬盘何时出故障？怎么办呢？

另：硬盘序列号可以通过软件改写

coby001

原帖由 xq1234 于 2009-2-8 14:57 发表
如果要这一句：  MsgBox "已超过使用期限，本文件将自杀", , "警告"
则可以避免文件被程序删除，方法是：1. Ctr+Alt+Del     2.    结束 EXCEL 进程.

所以,应该改成如下顺序:
            ThisWorkbook.ChangeFileAccess xlReadOnly  '改为只读属性
      Kill ThisWorkbook.FullName  '自杀
      MsgBox "已超过使用期限，本文件已自杀", , "警告"
            ThisWorkbook.Close False  '关闭不保存
...

假设 这个工作簿 的文件在 c:\MyBooks\       目录下，在XP 里使用它 的用户是 User1 ，C盘分区的格式是NTFS

只要把User1  对 目录  c:\MyBooks\   的 权限  设置为“只读”，这段代码是删除不了文件的

coby001

Dim FirstDate, de, days
    FirstDate = Date  '读取系统时间，可以在运行之前修改系统时间进行破解
    de = GetSetting("XXX", "YYY", "date", "")  '从注册表取值，也可以直接改写此处的注册表值为当天日期或删除键值，破解
    If de = "" Then   '如果取不到值
        SaveSetting "XXX", "YYY", "date", FirstDate  '把日期保存到注册表，把此处的注册表权限改为只读，就改写不了，将永远是第1次使用，破解
        MsgBox "本文件可使用3天，今天是第1次使用", , "提示"
    Else
        days = Date - CDate(de)  '计算文件使用的天数  '读取系统时间，可以在运行之前修改系统时间进行破解

        If days > 3 Then    '如果文件使用超过3天
            MsgBox "已超过使用期限，本文件将自杀", , "警告"
            ThisWorkbook.ChangeFileAccess xlReadOnly  '改为只读属性
            Kill ThisWorkbook.FullName  '自杀
            ThisWorkbook.Close False  '关闭不保存
        End If
        MsgBox "本文件已使用" & days & "天，还有" & 3 - days & "天可使用", , "提示"
    End If

andysky

原帖由 coby001 于 2009-2-8 20:20 发表 [url=http://club.excelhome.net/redirect.php?

另：硬盘序列号可以通过软 ...

用VBA提取的硬盘序列号可以是可以改的，所以很容易破解
但用VBA调用API取出的硬盘型号则不可改，这个无法解
比如我这个附件，它可以提取硬盘的型号
这是不可改的

okk

原帖由 andysky 于 2009-2-8 21:52 发表

用VBA提取的硬盘序列号可以是可以改的，所以很容易破解
但用VBA调用API取出的硬盘型号则不可改，这个无法解
比如我这个附件，它可以提取硬盘的型号
这是不可改的

请问:
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 = VFJ161R71TY6XK Then Exit Sub '要使用的电脑磁盘序列号
如何修改上面的代码才能提取硬盘的型号?
谢谢.

jsanshi

太高深了，没必要啊！又不是国家安全局的

hanzhang98

很好，学习一下!!

peter-chen

请将全部源码放出来先

luanyu6688

可以用下面的例了

http://club.excelhome.net/thread-350992-1-1.html