Thanks for your reply Tushar

I am trying to learn VBA but in the very short-term I have this tool that is being used by quite a few insurance agents who have encouraged me to sell it. I think the market for this tool is rather small - not expecting to make a lot of $$ - more like a challenge

My question regarding Rob van Gelder's code is this: I'm not sure how to place the code. At this point, the extent of my VBA experience is AUTO_OPEN and AUTO_CLOSE. I would like to call his code from AUTO_OPEN, but do I create a standard module or class modue. What is your suggestions for laying this out

Do you have any suggested VBA reading for beginners that is easy to read

Thank
-Warren

----- Tushar Mehta wrote: ----

Ummm..

You have some very elaborate plans for protecting your product, but if
you are just learning VBA what are you protecting? Wouldn't you be
better off learning VBA first and then worrying about how to protect
your work? Of course, you know your application better than I do,
so..

--
Regards

Tushar Meht
www.tushar-mehta.co
Excel, PowerPoint, and VBA add-ins, tutorial
Custom MS Office productivity solution

In article ,
says..
How do I call another macro (with your code) from my AUTO_OPEN macro? (I am just learning VBA
Thanks again in advance
-Warre
----- Rob van Gelder wrote: ----
Lots of application protection schemes use a combination of hardwar
identifiers (MAC address, Vol Serial etc...
Here's some code to pull C: Volume Serial Numbe
Declare Function GetVolumeInformation Lib "kernel32" Alia
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVa
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVa
nFileSystemNameSize As Long) As Lon
Sub test(
Const cMaxPath = 256, cDrive = "C:\
Dim strTemp As String, lngRet As Lon
Dim lngVolSerial As Long, strVolName As String * cMaxPat
Dim lngMaxCompLen As Long, lngFileSysFlags As Lon
Dim strFileSysName As String * cMaxPat
lngRet = GetVolumeInformation(cDrive, strVolName, cMaxPath, lngTemp,
lngMaxCompLen, lngFileSysFlags, strFileSysName, cMaxPath
strTemp = Format(Hex(lngTemp), "00000000"
strTemp = Left(strTemp, 4) & "-" & Right(strTemp, 4
MsgBox strTem
End Su
--
Rob van Gelder - http://www.vangelder.co.nz/exce
"Warren" wrote in messag
..
All
1) Is there a way to identify a PC that excel is running on? I.e., I
address maybe?
2) If there is, can I use VBA to somehow grab the id/name
3) If so, what would the code look like
Thanks in Advance, -Warre