Combobox visible ou non

[Pierre]

Bonjour à tous,

Je souhaite rendre visible ou non des Combobox dans mon UserForm en fonction de l'utilisateur 'UserName'.
Est ce possible ?

Merci d'avance pour votre coopération

Bon après midi à vous tous

Pierre

 

[Riddick]

Bonjour a tous

Il faudrait voir ton cas mais

selon le user avec un

If user='toto'then
ComboBox1.visible=true
End if

If user='tata'then
ComboBox.Visible=false
End if

Toto le verra
Tata non
Enfin tu vois le principe...

Riddick

 

[PascalXLD]

Bonjour

oui c'est possible

le code pour récupérer le username de celui qui se connecte

Public username As String


Declare Function GetUserName Lib 'advapi32.dll' Alias 'GetUserNameA' _
(ByVal lpBuffer As String, nSize As Long) As Long

Sub Get_User_Name()

Dim lpBuff As String * 25
Dim ret As Long
ret = GetUserName(lpBuff, 25)
username = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

End Sub

et ensuite le code de ton uf

Private Sub UserForm_Initialize()

Get_User_Name

if username='toto' then
me.combobox1.visible=false
endif

End sub

Si tu utilisateur est toto il ne verra pas le combo

Bon courage

 

[PascalXLD]

Oups excuse Riddick

C'est vrai que moi par habitude je suis parti du username de conexion au réseau et que Pierre voulait peut-être plus simple

M'en fin il a les 2 comme cela

 

[Riddick]

Cool
j'ai appris quelquechose tu vois tu as bien fait de le mettre surtout que j'avais pas penser a ca je pensais a un log a l'ouverture du fichier

Enfin j'apprend des tonnes de trucs tous les jours ici
C'est ENORME
Je copie ta macro.......

Riddick
Un petit Padawan XLD

 

[Pierre]

Bonjour Riddick et Pascal

Merci à vous deux.

Je suis effectivement en local mais la solution réseau m'interresse aussi car le cas va bientôt se présenter.

Donc les 2 solutions me conviennent parfaitement

Encore merci et bon week end