LOL......maybe you wouldn't "claim" to be an expert, but you'll do for me
until one comes along........thanks Tom

Vaya con Dios,
Chuck, CABGx3



"Tom Ogilvy" wrote:

I don't think you can but certainly wouldn't claim to be an expert.

--
Regards,
Tom Ogilvy



"CLR" wrote in message
...
This is extremely cool Tom...........is there a way to also "change" the
serial number on the HD from a macro in Excel?

Vaya con Dios,
Chuck, CABGx3



"Tom Ogilvy" wrote:

Sub ShowDriveInfo()
drvpath = "C:"
Dim fs,d,s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName
(fs.GetAbsolutePathName(drvpath)))
s = "SN: " & d.SerialNumber
MsgBox s
End Sub


--
Regards,
Tom Ogilvy


"Berj" wrote:

Dear Anyone,

I have prepared a few excel files linked together and am planning to
sell it
to a company. But they may copy and give these files to other companies
to
use on their computer. I want to protect my work. Giving passwords to
open
the files is not a solution because the first company to whom I sold
the
files may also give the password with the copy it makes.
So, I thought the only way to differentiate one computer from the other
is
the Hard Disk serial number. If I could only link the opening of the
files
(or the whole folder in which they are) to the Hard Disk serial number,
the
problem would be solved!
In this way, a copied file or the whole folder) will not work on the
other
computer, unless, I intervene and link the files to the new Hard Disk
serial
number.

Any Ideas of how to do this?
Or any other way is welcome.

Thanks whoever answers.
Berj Boshnakian