Multiple Password

P

Pete_UK

If your workbook contains two or more worksheets then each one can be
protected with their own individual password, so, yes, you can have
more than one password in a workbook.

Pete
 
R

revdeacon

let me give more info...
I am in an environment where I need multiple users to acesss workbooks
specifically for them. I wanted to put all the workbooks on our intranet in
one folder. Once they accessed the public folder they would only be able to
access their workbook via a password.
I would want to access the sames workbooks, but I would like to use a
spearate password which would be the same for all of them. Is this possible?
Two passwords per workbook - one for the specific user and one for me as the
master of all of workbooks.

Thanks
 
J

JNW

Not possible with Windows/Excel available protection. The only way is to use
VBA to create new entry requirements.
 
R

ryguy7272

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---
 
Top