Bonjour,
Je souhaiterais cacher un commandButton à l'ouverture d'un classeur en fonction de l'utilisateur Windows.
Lorsqu'un utilisateur "Uwin02"par exemple ouvre le classeur le bouton doit être non visible si c'est un autre utilisateur le bouton est visible.
Ci joint le code placé dans un module
Merci pour votre aide
"Erreur d'exécution'91': Variable objet ou variable de bloc non définie
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub PasdeCB()
 
Dim CdB1 As Object
'Recuperer le nom de l'utilisateur du PC
Range("C1") = Application.UserName
 
If Range("C1") = "UWIN02" Then  'Si Cellule = "Texte" alors
            CdB1.Visible = False   'Le Bouton est Non Visible
        Else    'Si non
            CdB1.Visible = True    'Le Bouton est Visible
    End If  'Fin de la Condition
 
End Sub