Discussion :

[Bugzy1963]

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

[sabzzz]

bonjour Bugzy1963,

voilà et on dit merci à Erlandsen Data Consulting,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

isabelle

[Bugzy1963]

Merci de répondre,

J'ai utilisé les fonctions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Environ("USERNAME") 
Environ("DOMAIN")
Environ("LOGONSERVER")

Tu peux associer ces valeurs String à des variables.

salutations

[sabzzz]

bonjour Bugzy1963,

oui, mais pas sur toutes les versions.

[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

[sabzzz]

bonjour,

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