Perhaps something such as this...

Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function ReturnUserName() As String
' returns the NT Domain User Name
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next
sLen = GetUserName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
ReturnUserName = LCase(Trim(tString))
End Function

Sub Filt()
Application.ScreenUpdating = False
On Error Resume Next
Dim Number As Integer

Range("J1").Select
Selection = "=ReturnUserName()"
If Range("J1").Text = oprince Or Range("J1").Text = hsmith = Then '< -- this
shows 2 user's login IDs
Number = 2 'this can be whatever you desire
Else
MsgBox ("Unauthorized.")

Exit Sub
End If

' blah, blah, blah, (I user the filter tool to find all criteria that
matched the value 2)

End Sub

I found the function, I think on this DG, a short time ago. I matched the
results of the function with the Sub and got this working later in the
afternoon yesterday.

Hope that helps,
Ryan---

--
RyGuy


"revdeacon" wrote:

Is it possble for one Workbook to have more than one password?