VBA code that allows an Excel file to be opened only on a single computer

How to make an Excel file that is limited to open on a computer and other computers cannot open the Excel file.

This has to be done with the help of VBA code.

Just add the following code to the event that the workbook opens.

Private Sub Workbook_Open ()

application.screenupdating = False

On Error GoTo 100

Workbooks.Open Thisworkbook.path & "/validation. XLS "

Activeworkbook.close False

Exit Sub

100:

MsgBox "You have no right to use the document."

Thisworkbook.close False

application.screenupdating = True

End Sub