affichage feuille en fonction du login

[popof]

Bien le bonjour au forum et à tous ceux qui liront 😉

Question du jour :

Est il possible de masquer des lignes / colonnes en fonction du nom de l'utilisateur.

J'explique, sur un fichier en réseau, chaque utilisateur ne sert que d'une partie des informations et masque donc les colonnes inutile à son domaine, je sais que l'on peut faire afficher une textbox avec le nom de l'utlilisateur mais je n'arrive pas à appliquer cela à une macro 'd'entrée' dans le document.

Explication:

Ouverture par utilisateur X -->Masque des colonnes Z à AX ( Exemple)
fermeture par l'utilisateur X ---> afficher toute les colonnes
Ouverture par l'utilisateur Y --> Masque les colonnes A à Y
Fermeture par l'utilisateur Y --> afficher toute les colonnes


En espérant avoir été explicite

Amicalement

Popof :whistle:

 

[PascalXLD]

Bonjour

Dans un module :

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

dans this_workbook

Private Sub Workbook_Open()

Get_User_Name

If username='X' then
Columns('Z:AX').EntireColumn.Hidden = True
elseif username='Y'
Columns('A:Y').EntireColumn.Hidden = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Columns('A:IV').EntireColumn.Hidden = False
End Sub

Bon courage

Message édité par: Pascal76, à: 07/06/2005 13:47

 

[STephane]

bonjour


il faut utliser une procédure évènementielle.
l'évènement est 'à l'ouerture du classeur'.

pur cela, tu peux double-cliquer sur l'objet 'ThisWorkbook' de ton classeur excel, que tu trouveras via l'explorateur de projets VBA, puis utiliser une procédure évènementielle du genre suivant

Private Sub workbook_open()
MsgBox Environ('username')
Select Case Environ('username')
Case 'auguste': Set rg = ActiveSheet.[Z:AX]
Case 'y': Set rg = ActiveSheet.[A:Y]
End Select
If Not rg Is Nothing Then rg.EntireColumn.Hidden = True
end sub


Tu peux aussi créer des affichages personnalisés via le menu affichage.

 

[popof]

Re le fil

Pascal76 STephane, merci pour ces réponses rapides, je vais voir se que cela donne qur un fichier et essayer de le faire approuver par tout le monde ( mais bon il y aura au moins un raleur 🙁 ) mais c pas grave.

J'essai et tiens au courant d'un éventuel problème.

Merci bOcoup messieu 😛

 

[_Thierry]

Bonjour Pascal, Popof, STéphane, le Forum


WOW STéphane, Tu m'as Scotché (une fois de plus)...

Environ Function !!!

Dire que, comme Pascal, j'utilisais intégralement l'appel l'API Offert par Microsoft dans le 'Sample.xls' depuis des années pour retourner le Log-In du User...

Et toi.......... Paf !!! MsgBox Environ('username')

Merci à Toi STéphane

Bon Aprèm
@+Thierry

 

[STephane]

Monique nous surpasse largement en formules, faut bien se rattraper quelquepart :woohoo:


allez, voilà un pointeur.
<Ce site n'existe plus


bien que je n'ai plus le temps demettre à jour mon site (mes modifs d'octobre sont encore sur mon pc), je suis preneur de macros ou corrections des bouts de code de mes pages.


Ciao

 

[popof]

re le forum

Bon je viens de d'aller faire un tour sur le lien et g effectivement 2 ou 3 corrections à apporter :

Donc :

1/ la couleur
2/ texte bizarre écrit en anglais
3/ je sais pas je cherche toujours

Bon plus sérieusement merci pour le lien il va faire partie des mes favoris ' help excel ' on ne sait jamais 😉


En se qui concerne les formules apparement il n'y a pas d'erreur mais en passant C quoi une formule ??? :whistle: