Discussion :

[watcha69]

bonjour à tous,

Dans une feuille Excel partager sur un réseau pour permettre des modifications multi-utilisateur, j'ai un boutton qui ouvre une simple Form.

Je cherche enfaite à bloqué ce boutton au autres utilisateurs si la Form est ouvert par quelqu'un et le débloquer quand la personne ferme cette form .

J'espere avoir trouvé les mots pour vous expliquer mon problème.

Merci d'avance

[Theocourant]

Bonjour,

Dans ton cas, je pense qu'il faut conditionner le blocage du bouton au nom de l'utilisateur de la machine.

Pour cela utilise l'expression suivante :

Code :

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

Application.UserName

+

Théo

[Gardy]

Bonsoir,

Je débute dans Vba et je trouve que le problème de Watcha69 très intéressant pour moi.

En effet, je travail beaucoup avec des feuilles excels partager sur un réseau local dans mon entreprise et je voudrai bien comprendre ta méthode
Theocourant (enfin tu veux bien )

J'ai créer un boutton qui quand on clic dessus ouvre une UserForm.

Sub Bouton1()
UserForm1.Show
End Sub

Jusque là, pas de problème

mais j'ai essayer d'integrer ton code dans une condition mais je ne comprend pas trop

Sub Bouton1()

If Application.UserName Then
Bouton1 = False
Else
UserForm1.Show
End If

End Sub

Enfin, j'éspère que je ne suis pas trop loin du but

[Theocourant]

Bonsoir,

Je débute dans Vba et je trouve que le problème de Watcha69 très intéressant pour moi.

En effet, je travail beaucoup avec des feuilles excels partager sur un réseau local dans mon entreprise et je voudrai bien comprendre ta méthode
Theocourant (enfin tu veux bien )

J'ai créer un boutton qui quand on clic dessus ouvre une UserForm.



Jusque là, pas de problème

mais j'ai essayer d'integrer ton code dans une condition mais je ne comprend pas trop



Enfin, j'éspère que je ne suis pas trop loin du but

En fait le principe est d'utiliser l'expression que j'ai donnée dans le codage du Workbook dans l'événement Open comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
 
If Application.UserName = "Théocourant" Then 'Comparaison avec le nom de l'utilisateur
    Sheets("Feuil1").CommandButton1.Visible = True
Else
    Sheets("Feuil1").CommandButton1.Visible = False
End If
 
End Sub

et dans la Feuil1 avec le bouton

Code :

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

1
2
3
Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

+

Théo

[Gardy]

Merci Theocourant d'avoir pris le temps de m'expliquer

je vais essayer demain matin

Bonne soirée

[watcha69]

Bonjour,

Merci, Theocourant de m'avoir éclairé

je vais voir comment je vais faire.

Bonne journé