VBA to check computer name and enable macro.

[aliaslamy2k]

Dear Colleagues,


I dont know if it is possible.. I have prepared a workbook, with many macros in it, the problem is anybody can copy my workbook and paste in their system. I need a vba code which should recognise my computer name and enable the macro or else all macros should be disabled.


Computer Name : AB



Many thanks in advance Mr Excel.

Kind regards,
AB

 

[VoG]

It would be easier to check your Windows logon name

If Environ("username") <> "VoG" Then Exit Sub

 

[aliaslamy2k]

Hi VoG,

Thanks a million, would it be possible for you to explain where exactly i should enter this code, and how the response will come.


Many thanks
AB

 

[VoG]

You could use it in a sub like this

Sub ArryTest()
Dim Myarray
Dim i As Long, j As Long
If Environ("username") <> "VoG" Then Exit Sub
Myarray = Range("A1:B10")
For i = 1 To 10
    For j = 1 To 2
        Cells(i, j).Offset(, 2).Value = Myarray(i, j)
    Next j
Next i
End Sub

Or possibly in the workbook open event in the ThisWorkbook module to close the workbook

Private Sub Workbook_Open()
If Environ("username") <> "VoG" Then Me.Close False
End Sub

 

[aliaslamy2k]

Hi VoG,


You are tooooo good.... Many thanks, you made my day.


Thank you very much Mr Excel.


Kind regards,
AB

 

[brettdj]

If you did want to lock access to a specific computer rather than user-id then you can use the following to return the local machine

Cheers

Dave

Sub ComputerName()
Dim objWsh
Set objWsh = CreateObject("WScript.Network")
MsgBox "Local computer name is " & objWsh.ComputerName
End Sub

 

[Snelly]

Hi Brettdj,

This is great. Do you know if a user change/modify their computer info somehow to match another computer's ID?

Many thanks,
Snelly

If you did want to lock access to a specific computer rather than user-id then you can use the following to return the local machine

Cheers

Dave

Sub ComputerName()
Dim objWsh
Set objWsh = CreateObject("WScript.Network")
MsgBox "Local computer name is " & objWsh.ComputerName
End Sub