Macro should not work any other computer

Technically it's not possible as such, but you can 'protect' your sheet to a certain extend.

a) Protect your VBA code through Tools -> VBAProject Properties -> Protection
b) Set up a splash screen to force people to enable macros.

Name a sheet "splash" and have it say "Please enable content to continue"

Then, in your WORKBOOKcode area, add the following:

Public ws As Worksheet, ac As Range

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sht As Worksheet
Application.ScreenUpdating = False
Set ws = ActiveSheet
Set ac = ActiveCell
Worksheets("splash").Activate
For Each sht In ThisWorkbook.Worksheets
If Not sht.Name = "splash" Then sht.Visible = xlSheetVeryHidden
Next sht
End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Application.ScreenUpdating = False
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
sht.Visible = True
Next sht
ws.Activate
ws.Range(ac).Activate
Worksheets("splash").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub

That will ensure the user gets to see only the 'enable macros' sheet upon start.

Then to prevent unwanted people to open put this also in the WORKBOOK code area:
Make sure you at least put your windows logon name in the part with 'username1,username2,username3' etc - this is where you put the windows login names of the people you want to have access. Not sure what yours exactly is, go to the immediate code area (control+G in the VBA area) and type 'debug.print environ("username")'

Private Sub Workbook_Open()
If Not InStr("username1,username2,username3", Environ("USERNAME")) > 0 Then Application.DisplayAlerts = False: ThisWorkbook.Close False
End Sub

Any username that is not in the 'allowed list', will result in the workbook auto-closing.
Enjoy

ps, instead of blocking on username, you can also use Environ("COMPUTERNAME")

Wouldn't it be possible to just add a password code snippet in the beginning of the code and then protect the code with the built in password protection. The first password could be read from another Excel file that you keep on your computer only.

Perhaps you could put something like this in the Open event.

If Environ("HOME") <> "/Users/michaelerickson" Then ThisWorkbook.Close

Excel is not secure. At all.
If you have truly sensitive data that you want protected, Excel is the wrong platform.

Hi janagan,

Though Excel is not secure, just to answer your question you could check the machine name that the code is being opened from and if it's not equal to yours end it, which would be something like this:

Option Explicit
Sub Macro1()
    
    Dim objWshNetwork As Object
    
    Set objWshNetwork = CreateObject("Wscript.Network")
    
    If objWshNetwork.computername <> "ABC123" Then '<= This would be your machine name
        MsgBox "The file is not permitted to be opened on this machine!!", vbCritical
        Set objWshNetwork = Nothing
        Exit Sub
    Else
        'Run your macro as the file has been opened from your machine
    End If
    
    Set objWshNetwork = Nothing

End Sub

Regards,

Robert