[VBA-E] Bloquer Boutton

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 ;)

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:

---

Application.UserName

---

+

Théo

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.

Citation:

---

Sub Bouton1()
UserForm1.Show
End Sub

---

Jusque là, pas de problème :mouarf:

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

Citation:

---

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:oops:

Citation:

---

Envoyé par 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.



Jusque là, pas de problème :mouarf:

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:oops:

---

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:

---

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:

---

1 2 3

Private Sub CommandButton1_Click() UserForm1.Show End Sub

---

+

Théo

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

je vais essayer demain matin

Bonne soirée

Bonjour,

Merci, Theocourant de m'avoir éclairé;)

je vais voir comment je vais faire.

Bonne journé

Citation:

---

Envoyé par watcha69

Bonjour,

Merci, Theocourant de m'avoir éclairé;)

je vais voir comment je vais faire.

Bonne journé

---

De rien et n'hésite pas à revenir si tu as besoin d'aide

+

Théo