Hi,

Maybe a loop like this for the second user?

If Sheets("Lookups").Columns("N").Find(LogInName).Offset(0, 2) = "Full Access" Then
    Do Until ActiveWorkbook.ReadOnly = False
        ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite
    Loop
End If
I'm still not convinced its a good idea to re-create something thats already there