De forma grosseira vc precisa de uma lista com os nomes dos computadores para depois pesquisar nesta lista

De forma grosseira no envento auto open da planilha

Teste é o nome do computador.

If Environ("computername") = "Teste" Then

MsgBox "Computador autorizado"

Else

Application.Quit

End If

Sim, mas pensei em algo como:

If lista = Environ("computername") Then

MsgBox "Computador autorizado"

Else

Application.Quit

End If

Aonde lista é o resultado de uma coluna com PCs cadastrados

Obs: Não programo em VBA, mas PHP, JavaScript, Java, HTML5...

De forma simples isso funciona coloque em Esta Pasta de Trabalho

Private Sub Workbook_Open()

Dim Maq As String
Dim WS As Worksheet
Dim WB As Workbook

'Nome do Arquivo XLSM
Set WB = Workbooks("Teste")
'Nome da Planilha onde esta a Lista de Nomes do PC
Set WS = Worksheets("Lista")
WS.Visible = xlSheetVisible
WS.Select
WS.Range("A2").Select

Inicio:
Maq = ActiveCell


Do While ActiveCell <> ""

If Environ("Username") = Maq Then
MsgBox "Computador Autorizado"
WS.Visible = xlSheetVeryHidden
Exit Sub
Else
ActiveCell.Offset(1, 0).Select
End If
GoTo Inicio
Loop
WS.Visible = xlSheetVeryHidden
WB.Save
WB.Close

End Sub

Altere as informações que estao entre aspas apos os comentarios.

Nome do Arquivo e Nome da Planilha.

Muito obrigado! Que Deus o abençoe e um Feliz Ano Novo. Esse Script faz o que preciso, "varre" as linhas e só para quando encontrar o resultado. Daqui pra frente creio me virar com a lógica e alguns outros comandos.