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?

 

[VoG]

Or maybe

Sub env()
MsgBox Environ("computername")
End Sub

 

[thunder_anger]

it says

C:\Documents and Settings\Administrator

 

[hiker95]

thunder_anger,

VoG, thank you.


Try VoG's suggestiong.

We are looking for something with your personal information:

Try:
Environ("USERPROFILE")

 

[thunder_anger]

Or maybe

Sub env()
MsgBox Environ("computername")
End Sub

it says
"Thunder"

 

[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. And, paste the copied code into VBAProject, Microsoft Excel Objects, ThisWorkbook (on the right pane) by pressing the keys CTRL + V
5. Press the keys ALT + Q to exit the Editor, and return to Excel

Private Sub Workbook_Open()

If Environ("computername") <> "Thunder" Then
  
  Application.DisplayAlerts = False
  
  ThisWorkbook.Close
  
  Application.DisplayAlerts = True
  
End If

Then save the new workbook, Save As, a macro enabeled workbook with a file extension .xlsm


You should be able to open the workbook, on your computer, without a problem.


Then, copy this new workbook to a USB drive, etc., and ask someone in your department to try to open the workbook on their computer.

 

[thunder_anger]

The
Private Sub Workbook_Open ()

Is used
shall i do it in

Private Sub Workbook_Activate ()
??!!

 

[hiker95]

thunder_anger,

On a NEW workbook, the Workbook_Open Even is already used?


Can we see the code?

If posting VBA code, please use Code Tags, see below in my Signature block: If posting VBA code, please use Code Tags - like this

 

[thunder_anger]

it is already working on a new workbook

but when i finish testing and going to apply it to my file it won't work

 

[Maheshp]

Hi VoG, Thunder anger

thank u for sharing such amezing informtion. can u explain.
what is Environ ? and is it possible if i login in PC with username & password, i will get
both using this function ? or any other vb code to find this

 

[VoG]

Hi VoG, Thunder anger

thank u for sharing such amezing informtion. can u explain.
what is Environ ? and is it possible if i login in PC with username & password, i will get
both using this function ? or any other vb code to find this

Try runnning this

Sub env()
Dim i As Long
Sheets.Add
For i = 1 To 56
    Cells(i, 1).Value = Environ(i)
Next i
Columns("A").AutoFit
End Sub