Vb code to run on only authorized system while spreadsheet will still be readable by other users

[jhonty4]

Hi
i have created an automated excel and now i want to distribute it.
I want the excel spreadsheet to be usable to everyone who has it but the code should only run on the system which has been authorised.
My target users have limited knowledge of excel and very basic security will do the job.

Thanks

 

[mole999]

have a read > https://www.techonthenet.com/excel/formulas/environ.php I think there is an element in here that could ensure the could can be tested against fir your needs. Macros must be enabled

 

[jhonty4]

have a read > https://www.techonthenet.com/excel/formulas/environ.php I think there is an element in here that could ensure the could can be tested against fir your needs. Macros must be enabled

Thanks mole999
I tried this code and it works . But if the user name is changed the code will not run.

Private Sub CommandButton1_Click()

If Environ(2) = "APPDATA=C:\Users\ABC\AppData\Roaming" Then
        MsgBox "you are not authorized, the program will terminate"
        End
                
        Else
        MsgBox "You are authorized, the program will run"
  End If
  


End Sub

Is there any turnaround?

 

[mole999]

I was thinking that at the top of relevant macros there would be a test that basically said if this is incorrect exit sub

If Environ(2) = "APPDATA<>C:\Users\ABC\AppData\Roaming" Then Exit Sub

there are about 300 different values that can be pulled from later versions of ENVIRONS, so path may not be the ideal. I don't know enough detail and would have to play with it to get a result I wanted

 

[jhonty4]

I was thinking that at the top of relevant macros there would be a test that basically said if this is incorrect exit sub

If Environ(2) = "APPDATA<>C:\Users\ABC\AppData\Roaming" Then Exit Sub

there are about 300 different values that can be pulled from later versions of ENVIRONS, so path may not be the ideal. I don't know enough detail and would have to play with it to get a result I wanted

That's what i meant .. Path doesn't look ideal way to perform the test
Is there any way we can pull ip address and do the same code ?

 

[mole999]

Sub Test()
On Error Resume Next

Dim LPosition As Integer

For LPosition = 1 To [B]300[/B]
   MsgBox Environ(LPosition)
Next LPosition

End Sub

you can step through this to see the multitude of options.

IP will work (if its there) until you refresh your network

if you have a standard user log in then you can use the log on name of the person

 

[jhonty4]

Sub Test()
On Error Resume Next

Dim LPosition As Integer

For LPosition = 1 To [B]300[/B]
   MsgBox Environ(LPosition)
Next LPosition

End Sub

you can step through this to see the multitude of options.

IP will work (if its there) until you refresh your network

if you have a standard user log in then you can use the log on name of the person

Thanks a lot i'll use user log on name..

 

[jhonty4]

Just found that MAC address will be better way to protect the sheet as username is also subject to change. So instead of ENVIRON i am using a code to fetch MAC address of computer.