droit d'utilisation

"amydale" <sebastien.tranchant(NOSPAM)@club-internet.fr> a écrit dans le
message de news:3f950fdc$0$6978$7a628cd7@news.club-internet.fr...

Bonjour à tous,
je voudrais faire "des droits d'utilisations" selon certaines personnes.
Je voudrais pouvoir récupérer le nom du user qui utilise l'appli.
merci à tous !!

Salut

Essai se qui suit :

- dans un classeur1.xls

Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long

Sub auto_open()
Get_User_Name
End Sub


Sub Get_User_Name()

Dim lpBuff As String * 25
Dim ret As Long, username As String
ret = GetUserName(lpBuff, 25)
username = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
MsgBox username
If username = "Administrateur" Then
MsgBox ("ok")
attribut_non_restrint
ElseIf username = "" Then
Else: MsgBox ("non")
attribut_restrint
End If

End Sub


Sub attribut_restrint()
SetAttr "Classeur1.xls", vbReadOnly
End Sub


Sub attribut_non_restrint()
SetAttr "Classeur1.xls", vbNormal
End Sub


Adapte le et tient moi au courant


--
Amicalement

__________________________________________

Lionel de Luca
ldeluca@tiscali.fr