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...