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?

 

[hiker95]

thunder_anger,

See if this gets you started in the right direction:

environ("username") is the name you logged into windows with.
http://www.mrexcel.com/archive/VBA/13778.html

 

[thunder_anger]

it didn't work

An error about comments??!!!!

 

[hiker95]

thunder_anger,

What version of Excel are you using?

Are you familiar with the VBA Editor?

 

[thunder_anger]

i use Excel 2010

yes i am familiar with VBA but not an expert

 

[hiker95]

thunder_anger,


Open a new workbook.


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).


1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Sub Test()
ActiveSheet.Range("A1") = Environ("USERNAME")
End Sub

Then run the Test macro.


Copy the contents of cell A1, and let ke know what the Environ("USERNAME") is.

 

[thunder_anger]

Thanks for the help


Environ("USERNAME") = "Administrator"

 

[hiker95]

thunder_anger,

Does your computer belongs to your Firm/Company?

 

[thunder_anger]

the PC belongs to HR department and the thing that i want to do is to open the file on this PC and if copied to any other computer it will not work
Note: All PCs Office packages are Macro Enabled

 

[hiker95]

thunder_anger,

With the test workbook, replace the last macro code with the following.

Sub Test()
ActiveSheet.Range("A1") = Environ("USERPROFILE")
End Sub

Run the Test macro again.

What does cell A1 contain?