上次讲到识别系统序列号，这次我就利用上序列号了。下面这段代码复制到excel中，这样就可以保护你的知识产权了。
Private Sub workbook_open()
Dim min As String
min = Environ("computername")
Dim DRIVEID
Dim ID As String
Dim IM As String
IM = "-123456"
Set DRIVEID = CreateObject("scripting.filesystemobject")
ID = DRIVEID.GETDRIVE("c").serialnumber
If min <> "20110802-1228" or ID<>IM
ActiveWorkbook.SAVE
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
End If
End Sub
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/24345566/viewspace-1053426/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
提取电脑硬件有关数据（一）
下一篇：
数组的一个应用
请登录后发表评论
登录
全部评论
