[VBA] Afficher un bouton selon l'utilisateur

Vous trouverez ici des morceaux de codes qui peuvent être utiles à votre site.
Verrouillé
Avatar du membre
Dakin Quelia
Webmaster
Webmaster
Messages : 565
Enregistré le : ven. 27 nov. 2009 05:47
Localisation : Belgique
Contact :

[VBA] Afficher un bouton selon l'utilisateur

Message par Dakin Quelia »

» Afficher un bouton selon l'utilisateur

Ce petit code vous permet d'afficher un bouton selon si l'utilisateur fait partie d'une liste (préalablement masquée et verrouillée).

Code : Tout sélectionner

' Cette procédure permet d'afficher le bouton "Consulter le Journal"
' Selon le nom de l'utilisateur stocké dans une feuille masquée du classeur.
' Ceci permet de gérer qui a droit d'accéder à ce bouton et le contenu.
Sub AfficherBoutonJournal()
    Dim Utilisateur As Range
	Dim ListeDroits As Range
	Dim OngletDroits As Worksheet
    
    ' Désactive le rafraîchissement de l'écran
    Application.ScreenUpdating = False
    
    ' Sélection de la feuille adéquate
    Set OngletDroits = ThisWorkbook.Worksheets("Droits")
	
	' Liste des utilisateurs autorisés
    Set ListeDroits = OngletDroits.Range("A2:A100")
    
    ' Recherche l'utilisateur dans la liste
    Set Utilisateur = ListeDroits.Find(What:=Environ("UserName"), LookIn:=xlValues, LookAt:=xlPart)
    
	With OngletDroits
		' Rechercher l'utilisateur dans la liste
        Set Utilisateur = ListeDroits.Find(What:=Environ("UserName"), LookIn:=xlValues, LookAt:=xlPart)
                  
         ' Si l'utilisateur n'est pas dans la liste, le bouton est masqué.
		If Utilisateur Is Nothing Then
			MenuForm.Consulter_Journal.Visible = False
		End If
    End With
    
    ' Réactive le rafraîchissement de l'écran
    Application.ScreenUpdating = True
End Sub
Pour l'utiliser, rien de très compliqué :

Code : Tout sélectionner

' Afficher le bouton  
AfficherBoutonJournal()

Verrouillé

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité