VBA to Restrict certain usernames.

[Bob Phillips]

Private Sub Workbook_Open()
    Dim sUserName As String
    Dim vecExclude As Variant
    
    sUserName = Environ("USERNAME")
    vecExclude = Array("Tester1", "Test1", "bob")
    
    If Not IsError(Application.Match(sUserName, vecExclude, 0)) Then
    
        Call MsgBox("SORRY!!!" & vbCrLf & vbCrLf & "But '" & sUserName & "' logons are not allow to use this" & _
            vbCrLf & vbCrLf & "The workbook will now close", _
            vbCritical + vbOKOnly, "Tester Check")
    
        ThisWorkbook.Close (False)
    End If
End Sub