fonction programmeur

[petchy]

Le Forum

voila est il possible de mettre un mot de passe si ont veut utiliser la fonction programmeur,si oui, quelle est le code

Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "Programmeur"
.Tag = "MyTag"
End With


With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Développeur"
.OnAction = "Programme.AffichBarre" 'Macro a exécuter
.FaceId = 1036
End With

With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Utilisateur"
.OnAction = "Programme.CacheBarreOutils" 'Macro a exécuter
.FaceId = 1035
End With

 

[@+Thierry]

Bonsoir Petchy

Tu devrais poster le code entier déjà car là il manque l'intialisation de cb...

Ensuite pour le peu que je peux en voir de la sorte, "Programmeur est une Custom CommandBar est par conséquent, elle ne gère que des boutons...

C'est dans les macros des boutons que tu dois établir une éxécution uniquement si le Password est OK...

Par exemple pour la Macro Développeur...

Sub Programme.AffichBarre ()
Dim PW as String
PM = InputBox("Veuillez indiquer Password ", "Security Access")
If PM <> "TOTO" then MsgBox "Vous êtes jeté": exit sub

... ici la macro

PS le mieux serait de le faire par un UserForm avec une TextBox initialisée comme suit :
Private Sub UserForm_Initialize()
TextBox1.PasswordChar = "*"
End Sub


Bonne Nuit et bon week end
@+Thierry

 

[petchy]

bonjour le forum

merci @+Thierry ,je vais essayer par un userfom.

@ plus et bon week-end
petchy