Discussion :

[arkorrigan]

Bonjour à tous !

Je viens de réaliser une petite applcation sur excel avec vba et j'en suis à la résolution des conditions d'utilisation.
A ce sujet, je voudrais vérouiller l'accès de certains bouton de commande (étant affecter à des macros) selon l'utilisateur.
J'ai essayé de voir ce que je pouvais faire avec les options de sécurité proposées par excel, mais elle verouille toute la feuille, or c'est pas mon but.

Quelqu'un a une idée ???

Merci

[ouskel'n'or]

Derrière le click du bouton, tu peux vérifier le nom du User avec Environ("USERNAME")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub LeBouton_Click()
Liste = "Martin, Durant, Durand, Durang, Dupont, Pupond"
If not instr(Liste, Environ("USERNAME")) <> 0 then exit sub
'Ton code
End sub

[zandru]

Bonjour,

Tu peux aussi faire à l'activation de ta fenêtre (en réutilisant une partie du code de Ouskel'n'or) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub MaFenetre_Activate()
    Liste = "Martin, Durant, Durand, Durang, Dupont, Pupond"
    If Not InStr(Liste, Environ("USERNAME")) <> 0 Then
        bouton1.Enabled = False
        bouton2.Enabled = False
        ...
    End If
End Sub

[ouskel'n'or]

Oui, par exemple...
Mais pour être encore plus sectaire, tu peux aussi mettre ça dans Workbook_Open

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Workbook_Open()
    Liste = "Martin, Durant, Durand, Durang, Dupont, Pupond"
    If Not InStr(Liste, Environ("USERNAME")) <> 0 Then _
         ThisWorkbook.Close False
End Sub

[zandru]

Ta solution est peut-être un peu extreme

j'ai pensé aussi que les utilisateurs pourraient ne pas voir les boutons qu'ils n'ont pas à utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub MaFenetre_Activate()
    Liste = "Martin, Durant, Durand, Durang, Dupont, Pupond"
    If Not InStr(Liste, Environ("USERNAME")) <> 0 Then
        bouton1.Visible = False
        bouton2.Visible = False
        ...
    End If
End Sub

Qu'en pense arkorrigan, le créateur de la discussion ?

[arkorrigan]

Bonjour à vous !

Vos solutions m'ont l'air très intéressantes...
D'ailleurs j'opterais bien pour celle de zandru.
Par contre, comment marche t'elle ?
J'ai recopié ta solution et en fait je me rends compte que je ne vois pas comment elle peut fonctionner ?
Elle se met en marche quand tu ouvres le fichier ?
quand tu ouvres seulement la feuille ?

Et la fonction Username fait référence au nom d'utilisateur qui est inscrit dans l'ordi ?

merci de bien vouloir m'éclairer un peu...

[zandru]

Bonjour,

Alors pour le USERNAME il faut voir avec Ouskel'n'or

L'evenement qui lance cette procédure est l'activation de la userform (si tu utilises un Userform )
sinon, il faut utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Worksheet_Activate()

End Sub

soit tu veux que tes boutons soit invisible aux utilisateurs non-autorisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

bouton1.Visible = False

soit tu veux que les boutons soit visible mais grisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

bouton1.Enabled = False

voilà, j'espère avoir été clair

[fring]

un simple petit test permettra de comprendre ce que renvoie "UserName"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
MsgBox Environ("username")
End Sub

[arkorrigan]

j'essaye ta soluce mais elle ne marche pas,
en fait quand je la lance, il ne reconnait pas les boutons que je veux cacher, pourtant j'ai bien vérifié leur numéro et tout mais j'ai toujours la mem erreur !

t'as une idée ?

[ouskel'n'or]

Oui, quelle erreur ? Sur quelle ligne ?
Pour environ, je crois me souvenir que l'aide en ligne donne une bonne explication et même un exemple d'utilisation. Je complète en disant que par le N° tu peux avoir tous les paramètres à envoyer pour avoir le renseignement correspondant
Ex : Application.Environ("USERNAME") fournit le nom de celui qui a ouvert une session, et non l'utilisateur d'Excel que tout un chacun peut modifier
Pour ton code, je le mettrais dans la feuille de code de la feuille de calculs
Editeur VB -> Deux clics sur le nom de la feuille -> Général -> Worksheet -> Activate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Activate()
'ton code
End Sub