Cherche Logging

[patrice]

Bonjour à toutes et à tous.
Comment peut on recupérer le logging d'un utilisateur sous NT ou autre via VB Excel.
Je m'explique : Je voudrais arréter la macro Aut😵pen si l'utilisateur n'est pas autorisé (if ... then exit sub). Merci d'avance.

 

[Dan]

Bonsoir,

Je ne sais pas si cela peut te convenir mais dans une de mes applications j'ai utilisé cette macro qui oblige l'utilisateur à encoder un mot de passe avant d'accéder au fichier . Il te suffit d'encoder la macro "message" dans la macro Auto_open

Sub Message()
Dim Message, Title, Default, MyValue
' Définit le message.
Message = "Enter your password"
Title = "Password" ' Définit le titre.
Default = "" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
Select Case MyValue
Case Is = "mot de passe utilisateur": "nom de macro à enclencher"
Case Else: Wrongpassword
End Select
End Sub

Fais savoir si c'est cela te convient

@+

Dan

 

[C@thy]

bonjour tout le monde

mylogin = Application.UserName

C@thy

 

[rené]

Bonjour,

J'ai remarqué que Application.UserName donne le nom du domaine plutot que le nom de l'utilisateur.
Moi j'utilise le code ci-après, qui me rend bien le login de l'utilisateur :


Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Const NoError = 0


Function GetUserName()
Const lpnLength As Long = 255
Dim status As Long
Dim lpName, lpUserName As String
lpUserName = Space$(lpnLength + 1)
status = WNetGetUser(lpName, lpUserName, lpnLength)
If status = NoError Then
lpUserName = left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
Else
MsgBox "Impossible d'obtenir le login."
End
End If
GetUserName = lpUserName
End Function

René

 

[C@thy]

Bonsoir Réné,

chez moi ça bloque à : WNetGetUser

sub ou fonction non définie

C@thy

 

[patrice]

Bonsoir C@thy, René et à tous
Pour moi le commande : mylogin = Application.UserName
fonctionne correctement merci.
Win NT et Excel 97, il y a peu etre une différence de version avec René,
dont je n'ai pas essayé le code.
A+