[求助]如何不让文件被拷贝?

jinyongjun · 发表于 2005-2-27 12:03:00

我用VBA编写了一个专业软件,内嵌在某一图形文件中.我只想拷贝给我的同事使用,而不想让他们外传.也就是说只有我有权利给别人拷贝,而别人无法进行拷贝,只能使用.请高手指教.

clement · 发表于 2005-2-27 13:32:00

在程序开始的部分加一段，检查使用者是否在合法用户名单里面
AutoCAD有一个只读的系统变量LOGINNAME，其值为用户名。
在AutoCAD命令栏直接输LOGINNAME就可以看出当前值是多少
比如你只准备让USER1、USER2、USER3三个人用你的程序
Dim strLoginName As String
Dim varLegalUsers As Variant
Dim i As Integer
Dim n As Integer
varLegalUsers = Array("USER1", "USER2", "USER3") '合法用户名单
n = UBound(varLegalUsers)
strLoginName = ActiveDocument.GetVariable("LOGINNAME")
For i = 0 To n
If UCase$(strLoginName) = varLegalUsers(i) Then Exit For
Next
If i > n Then End '如属非法用户停止运行