[VBA] Afficher un bouton selon l'utilisateur

[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()