help: Restrict access to Excel files

[thunder_anger]

Dear all

after i worked hard on my file
i want the file to open just in one computer and if copied to another computer it won't work

is that Possible?

 

[thunder_anger]

So, I understood that Environs are system variables that may used as a validation for the use of a file

is that correct??

 

[VoG]

Yes, so what is in your existing Workbook_Open code ?

 

[thunder_anger]

Yes, so what is in your existing Workbook_Open code ?

Yes, there are
sheets("GUI").activate
Scrollarea = "A1:N26"
UserFormGUI.show

 

[VoG]

try changing it to

Private Sub Workbook_Open()
If Environ("computername") <> "Thunder" Then
    Application.DisplayAlerts = False
    ThisWorkbook.Close
    Application.DisplayAlerts = True
End If
Sheets("GUI").Activate
ScrollArea = "A1:N26"
UserFormGUI.Show
End Sub

 

[thunder_anger]

works like Magic
Thank you

 

[VoG]

We do work magic here. Mostly in this case down to Hiker95,

be aware that if a user disables macros it won't work.

 

[hiker95]

thunder_anger

Other Variables: In Place of "Username"
http://www.mrexcel.com/forum/showthread.php?t=54738

 

[thunder_anger]

We do work magic here. Mostly in this case down to Hiker95,

be aware that if a user disables macros it won't work.

Haaaaaaa!!!!
Is there any way to avoid that??

 

[thunder_anger]

Can I make An Add-in and put it into an msi package????

 

[pedie]

it says

C:\Documents and Settings\Administrator

It works perfectly for me...

Try Peter's [VOG] and Hikers code again...
compueter name cannot be "C:\Documents and Settings\Administrator"