Checking for Authorization

[wmtsub]

I would like a macro to read a txt file and compare the list of names on it against the system user. If the user appears on the list open the file and if not exit the file.
I am able to readt the system user and open a file but i am lost as to how to actually compare the data.

Can any one help?

 

[smpatty08]

I would like a macro to read a txt file and compare the list of names on it against the system user. If the user appears on the list open the file and if not exit the file.
I am able to readt the system user and open a file but i am lost as to how to actually compare the data.

Can any one help?

You could do something like this just substitute

Const strSearch = "Bill"

for

strSearch = Environ("USERNAME")

Sub SearchTextFile()
    Const strFileName = "C:\Users\Desktop\Text.txt"
    Const strSearch = "Bill"
    Dim strLine As String
    Dim f As Integer
    Dim lngLine As Long
    Dim blnFound As Boolean
    f = FreeFile
    Open strFileName For Input As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=f"]#f[/URL] 
    Do While Not EOF(f)
        lngLine = lngLine + 1
        Line Input [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=f"]#f[/URL] , strLine
        If InStr(1, strLine, strSearch, vbBinaryCompare) > 0 Then
            'Open Workbook
            blnFound = True
            Exit Do
        End If
    Loop
    Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=f"]#f[/URL] 
    If Not blnFound Then
        MsgBox "String not found", vbInformation
    End If
End Sub

 

[wmtsub]

Thank you. This but me on track for what I needed. Sorry to not have responded sooner, been very busy.