Private Sub Workbook_Open()
u = CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber
If u <> тут_серийный_номер№1
Or u <> тут_серийный_номер№2
Or u <> тут_серийный_номер№3
Then ActiveWindow.Close 'или другое действие
End Sub

Private Sub Workbook_Open()
u = CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber
If u <> тут_серийный_номер№1 And u <> тут_серийный_номер№2 And u <> тут_серийный_номер№3 Then ActiveWindow.Close 'или другое действие
End Sub

Private Sub Workbook_Open()
u = CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber
If u <> тут_серийный_номер№1 And u <> тут_серийный_номер№2 And u <> тут_серийный_номер№3 Then
ActiveWindow.Close 'или другое действие
End If
End Sub

strComputer = "."
DebugPrint = ""
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Processor", , 48)
For Each objItem In colItems
     DebugPrint = DebugPrint & objItem.Caption & "|"
Next

Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_DiskDrive", , 48)
For Each objItem In colItems
  
     If Not objItem.Caption Like "*USB*" Then
        DebugPrint = DebugPrint & objItem.Caption & "|"
        DebugPrint = DebugPrint & objItem.Signature & "|"
     End If
    DebugPrint = DebugPrint & objItem.Size & "|"
Next

Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_BaseBoard", , 48)
For Each objItem In colItems
Debug.Print objItem.Product
   DebugPrint = DebugPrint & objItem.Product & "|"
Next

Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_BIOS", , 48)
For Each objItem In colItems
   DebugPrint = DebugPrint & objItem.Version & "|"
Next
Debug.Print DebugPrint