Only open Excel Document if Computer Device name is correct

Good day,

I'm looking for VBA code that would check a computer device name. I want it to be able to give a popup saying: "Device not Registered" if the device name is not right. I also want it to work on my computer, but it shouldn't work on more than 2 computers.

Some background: I want to sell people programs that I create on Excel, but I don't want them to give it to others for free. That is why I want it to only work on a certain device name. I already figured out how to lock my VBA and found a way to force them to activate Macros, so that won't be a problem. All I need is some code that will check if the device name is one of the 2 that is allowed.

Thanks for the help in advance!

Regards,
Bodey

If you sold me that program and I wanted to get into the VBA and remove such protection, it would take me less than 10 seconds to strip the password off the VBA. Excel is NOT good with security like that.

If someone wants to get into it and has even a modicum of knowhow, they can and will break it open.

BSB

Hi, thanks for the reply. I know Excel security isn't the best, but my intent isn't to sell a program worth thousands, but rather a lot of different programs worth 5 or 10 dollars. It doesn't have to be very high security, because I will be selling to people who are completely computer illiterate.

OK, then you can use Environ("ComputerName") to return the computer ID.

Something like the below in the open event could work:

Please Login or Register  to view this content.

If the current "ComputerName" matches one of those specified in the first case then carry on. If not, it'll boot them out.

However, what if my computer dies and I have to buy a new one, do I then need to buy another copy of the program from you with my new device name in the open event code?

BSB

Thanks so much! I will try this and get back to you. We are still working on how to handle the "new computer" situation. For now I think we will just advertise our products as a once-off, one computer product, but I understand your point.

Bodey

Good luck with it.
Give me a shout if you need help implementing it.

BSB

I do have trouble implementing this... FYI, my 2 computernames that I want to work is LAPTOP-8PM8645Q and LAPTOP-8SD8745A (Not really, for example purposes). Can you maybe rewrite the code to fit this? It keeps saying that there is a compile error. Note: I am currently working on Windows 10

Put the below code in the "ThisWorkbook module"

Please Login or Register  to view this content.

BSB

I looked at this product for a company application. I never did use it.