Validation du Domain UserName

Version imprimable

26/03/2010, 19h07
Bugzy1963

Validation du Domain UserName

Bonsoir le forum

J'ai une application Excel avec Macro. J'utilise le module ThisWorkbook_Open() pout initialiser certaines données lors de l'ouverture de l'application.

L'application devrait être sécurisée lors de son ouverture. Je voudrais reconnaitre le poste utilisateur en utilisant le Domain Username. Le username de excel n'est pas assez sécuritaire.

Ainsi, si l'application est ouverte hors réseau, un message affichera que "Vous n'avez pas l'autorisation d'ouvrir ce fichier" et en pressant OK l'application excel fermerait.

J'ai un serveur avec SmallBusiness 2003 et les utilisateurs sont avec Windows XP ou Vista et tous les Offices sont 2007.

Merci de votre aide

bonjour Bugzy1963,

voilà et on dit merci à Erlandsen Data Consulting,

Code:

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

Code:

1
2
3
Sub info()
MsgBox ReturnDommainUserName & " - " & ReturnUserName
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function ReturnDommainUserName() 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
    ReturnDommainUserName = UCase(Trim(tString))
End Function 'merci à  Erlandsen Data Consulting

Code:

1
2
3
Function ReturnUserName() As String
ReturnUserName = Application.UserName
End Function

isabelle

08/04/2010, 17h18
Bugzy1963
Merci de répondre,

J'ai utilisé les fonctions
Code:

1 2 3 Environ("USERNAME") Environ("DOMAIN") Environ("LOGONSERVER")
Tu peux associer ces valeurs String à des variables.

salutations
08/04/2010, 18h02
sabzzz

bonjour Bugzy1963,

oui, mais pas sur toutes les versions.
08/04/2010, 18h07
Bugzy1963

Merci Sabzzz

Justement mon collègue n'est pas en mesure de prendre ces informations sur son poste en utilisant Word2007, pourtant moi je suis capable et j'ai Office 2007 avec Vista

A partir de quelle version OFFICE et Windows sommes nous en mesure d'utiliser Environ ?

Salutations
08/04/2010, 18h28
sabzzz

bonjour,

à ma connaissance à partir de xl2000, mais elle est non disponible sur le Mac.