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

oahome

思路还是不错的，不过要是想解开还是很容易的啊。excel文件件加密真是麻烦啊

gzgis

再高深的加密都能破解，一般只能防君子，盼解！

zhenghua9256

学习.........

tonypio

很好，很强大！学习一下。

crcw

我觉得限制别人使用时间有意思.

coby001

如果你自己换硬盘了  怎么办？ 以子之矛，攻子之盾

andysky

原帖由 gzgis 于 2008-9-22 08:52 发表
获取硬盘的序列号:410476

我也提供一个，我用VB写的

andysky

原帖由 coby001 于 2009-2-8 11:46 发表
如果你自己换硬盘了  怎么办？ 以子之矛，攻子之盾

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

poor.456

盼望高人指点!

xq1234

在MsgBox 前加个单引号吧，是吗？
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 '要使用的电脑磁盘序列号
   
    Dim FirstDate, de, days
    FirstDate = Date
    de = GetSetting("XXX", "YYY", "date", "")  '从注册表取值
    If de = "" Then   '如果取不到值
        SaveSetting "XXX", "YYY", "date", FirstDate  '把日期保存到注册表
        '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
End Sub






如果要这一句：  MsgBox "已超过使用期限，本文件将自杀", , "警告"
则可以避免文件被程序删除，方法是：1. Ctr+Alt+Del     2.    结束 EXCEL 进程.

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