Run workbook only on select pc's based on serial number

[dgarber]

Hi Everyone,

I run the macro below which tests the hard drives serial number. If it doesn't match the workbook will close.
This works great on a single PC but I want to be able to have it test multiple serial numbers so it will run on
any PC where one of the multiple serial numbers match but not quite sure how to get there?

Any help would be appreciated.

Thank you.

Please Login or Register  to view this content.

[TMS]

Set a variable to the value of the serial number of the drive. Then loop through a list of permitted serial numbers. If one matches, set a Boolean variable to true. If, at the end of the loop, the Boolean variable is still false, close the application.

[Joske920]

This should just work fine just make sure you add a ; at both sides of the number

Private Sub Workbook_Open()
If InStr(1, ";-1464624812;456753469449;ASD-45678996;", ";" & CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber & ";", vbTextCompare) = False Then MsgBox "closing app", vbCritical 'Application.Quit

End Sub

grtz

[dgarber]

Thank you Joske920!! Works great!

[Pukenevar]

Hi Guys,

would this VB script work on Auto_run? I have an excel sheet that i want to input the users Hard drive serial no into the script so when excel workbook loads they cannot share the worksheet with other computers if it doesnt match, but when I load the VB script under "this workbook" it is still loading the excel sheet even when the HD serial no is incorrect

[TMS]

Administrative Note:

Welcome to the forum.

We are happy to help, however whilst you feel your request is similar to this thread, experience has shown that things soon get confusing when answers refer to particular cells/ranges/sheets which are unique to your post and not relevant to the original.

Please see Forum Rule #4 about hijacking and start a new thread for your query.

If you are not familiar with how to start a new thread see the FAQ: How to start a new thread

However, seeing as you are here, see: https://www.pcreview.co.uk/threads/a...k_open.953960/

I don't think the trick of holding down the shift key works any more.

Note: it is Auto_Open not Auto_Run