Empêcher affichage boîte à outil du formulaire lors exécution macro

Le
stephanie thibault
Bonjour,
J'ai fait une macro avec un formulaire.
J'ai verrouillé ma macro pour que l'utilisateur ne voit pas le code.
Mais quand il clique sur un des boutons, la boîte à outils du
formulaire apparaît !
Comment faire pour qu'elle ne s'affiche pas ?
Et c'est bizarre, ça ne le fait qu'avec un des boutons, pourtant je ne
vois rien dans mon code qui permettrait de l'afficher.
Que dois-je faire ?
Merci

Mon code:
Private Sub OK2_Click()
UserForm1.Frame5.Enabled = True
UserForm1.Frame2.Enabled = False

UserForm1.OK2.BackColor = &HE0E0E0 'gris
UserForm1.Effacer2.BackColor = &HE0E0E0 'gris

UserForm1.ComboBox4.BackColor = &HE0E0E0 'gris
UserForm1.ComboBox5.BackColor = &HE0E0E0 'gris
UserForm1.ComboBox6.BackColor = &HE0E0E0 'gris

UserForm1.Effacer3.BackColor = &HC0C0FF 'rose
UserForm1.OK3.BackColor = &HC0FFC0 'vert

UserForm1.ComboBox10.BackColor = &H80000005 'blanc
UserForm1.ComboBox11.BackColor = &H80000005 'blanc
UserForm1.ComboBox12.BackColor = &H80000005 'blanc

End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
stephanie thibault
Le #23369741
On 17 mai, 09:27, stephanie thibault
Bonjour,
J'ai fait une macro avec un formulaire.
J'ai verrouillé ma macro pour que l'utilisateur ne voit pas le code.
Mais quand il clique sur un des boutons, la boîte à outils du
formulaire apparaît !
Comment faire pour qu'elle ne s'affiche pas ?
Et c'est bizarre, ça ne le fait qu'avec un des boutons, pourtant je ne
vois rien dans mon code qui permettrait de l'afficher.
Que dois-je faire ?
Merci

Mon code:
Private Sub OK2_Click()
UserForm1.Frame5.Enabled = True
UserForm1.Frame2.Enabled = False

UserForm1.OK2.BackColor = &HE0E0E0 'gris
UserForm1.Effacer2.BackColor = &HE0E0E0 'gris

UserForm1.ComboBox4.BackColor = &HE0E0E0 'gris
UserForm1.ComboBox5.BackColor = &HE0E0E0 'gris
UserForm1.ComboBox6.BackColor = &HE0E0E0 'gris

UserForm1.Effacer3.BackColor = &HC0C0FF    'rose
UserForm1.OK3.BackColor = &HC0FFC0 'vert

UserForm1.ComboBox10.BackColor = &H80000005 'blanc
UserForm1.ComboBox11.BackColor = &H80000005 'blanc
UserForm1.ComboBox12.BackColor = &H80000005 'blanc

End Sub



Bon ben je ne sais pas pourquoi, mais le problème a disparu !
Gloops
Le #23371861
stephanie thibault a écrit, le 17/05/2011 11:19 :
On 17 mai, 09:27, stephanie thibault
Bonjour,
J'ai fait une macro avec un formulaire.
J'ai verrouillé ma macro pour que l'utilisateur ne voit pas le code.
Mais quand il clique sur un des boutons, la boîte à outils du
formulaire apparaît !
Comment faire pour qu'elle ne s'affiche pas ?
Et c'est bizarre, ça ne le fait qu'avec un des boutons, pourtant je ne
vois rien dans mon code qui permettrait de l'afficher.
Que dois-je faire ?
Merci

Mon code:
Private Sub OK2_Click()
UserForm1.Frame5.Enabled = True
UserForm1.Frame2.Enabled = False

UserForm1.OK2.BackColor =&HE0E0E0 'gris
UserForm1.Effacer2.BackColor =&HE0E0E0 'gris

UserForm1.ComboBox4.BackColor =&HE0E0E0 'gris
UserForm1.ComboBox5.BackColor =&HE0E0E0 'gris
UserForm1.ComboBox6.BackColor =&HE0E0E0 'gris

UserForm1.Effacer3.BackColor =&HC0C0FF 'rose
UserForm1.OK3.BackColor =&HC0FFC0 'vert

UserForm1.ComboBox10.BackColor =&H80000005 'blanc
UserForm1.ComboBox11.BackColor =&H80000005 'blanc
UserForm1.ComboBox12.BackColor =&H80000005 'blanc

End Sub



Bon ben je ne sais pas pourquoi, mais le problème a disparu !



C'est probablement mieux que l'inverse :)
Plus pratique, en tout cas.
Publicité
Poster une réponse
Anonyme