XL 2016 Cacher certains texbox et bouton par mot de passe

[ngexcel]

Bonjour
j ai un userform1 qui comporte des textbox et boutons que je veux cacher pour certain utilisateurs
Je voudrais sur ma feuil1 un bouton avec macro qui par mot de passe les actives et a la sortie du userform les recaches
j ai supprimé dans mon userform le maximun de textbox pour etre plus claire

 

[Staple1600]

Bonjour le fil,

Un petit exemple
(Un userform + 2 TextBox)
(test OK sur mon PC)

Private Sub CommandButton1_Click()
MotPasse = CStr(InputBox("Mot de passe?", "Identification", "****"))
If Len(MotPasse) = 0 Then Exit Sub
SeeMe = Not StrComp("1234", MotPasse, vbTextCompare)
UserForm1.TextBox1.Visible = SeeMe
UserForm1.TextBox2.Visible = SeeMe
UserForm1.Show
End Sub

 

[ngexcel]

bonjour staple1600
merci pour ton aide si je colle ton code dans mon bouton CommandButton1_Click() qui est sur la feuil1
j ai un message d erreur peux tu l intégrer dans mon fichier que j ai mis pour exemple afin que je comprenne merci

 

[Staple1600]

Re

[aparté en passant]
Tu veux dire le fichier de Denis Dalmont
(qui de mémoire protégeait ses projets VBA par mot de passe)
[/aparté en passant]

Comme dit dans mon premier message, mon bout de code n'est qu'un exemple.
(pour illustration et test)
Donc pour comprendre son fonctionnement, c'est simple
Dans un classeur vierge:
1) Insère un Userform sur lequel tu ajoutes deux TextBox
2) Insère un CommandButton sur une feuille
Passe en mode création
Clic-droit sur le bouton
=>Visualiser le code
Et là coller le code VBA de mon précédent message
Sortir du mode Création.
Et appuyez sur le bouton
a) En saisissant le bon mot de passe
b) puis en saisissant un mot de passe erroné.

 

[ngexcel]

merci oui c'est un fichier de mr dalmont très complexe ton exemple fonctionne sur un fichier vierge
le problème c'est de l intégrer dans son fichier il n'y a pas de mot passe

 

[Staple1600]

Re

[aparté suite et fin]
Le projet VBA n'était pas protégé par un mot de passe ?
Etonnant, non! (comme aurait dit Monsieur Cyclopède)
[/aparté]

Avant de l'intégrer dans son fichier très complexe, testes déjà mon code dans un fichier très simple
(comme expliqué dans mon message précédent)

 

[ngexcel]

oui pas de mdp donc Jai intégré ton code mais le userform s ouvre mais il est vide

 

[Staple1600]

Re

Je te conseille de créer ton propre fichier
(plutôt que d'utiliser un fichier complexe dont tu n'es pas l'auteur)
Cela évite les fautes d'inattention
Car voici ou tu as mis mon bout de code

Private Sub CommandButton2_Click()

Si tu le mets en remplacement du code présent de le CommandButton1
Cela devrait mieux fonctionner.
NB: Ne pas oublier de faire les modifications idoines au préalable.

 

[ngexcel]

je suis un peux perdu
peux tu l intégrer dans mon fichier test1 si cela ne te dérange pas

 

[Staple1600]

Re

C'est simple.
Sur ton fichier du message#7
1) Cliques-droit sur la feuille 1 -> Visualiser le code
2) Tu supprimes le code présent dans CommandButton1
Et à la place tu mets celui que tu as mis dans CommandButton2
Au final, il ne doit rester dans le code de la feuille que

Private Sub CommandButton1_Click()
MotPasse = CStr(InputBox("Mot de passe?", "Identification", "****"))
If Len(MotPasse) = 0 Then Exit Sub
SeeMe = Not StrComp("1234", MotPasse, vbTextCompare)
UserForm1.TextBox1.Visible = SeeMe
UserForm1.TextBox2.Visible = SeeMe
UserForm1.TextBox106.Visible = SeeMe
UserForm1.Show
End Sub

PS: Je ne joins plus de fichier Excel sur le forum depuis le 22 mai 1968, 15 heures de l'aprés-midi.

 

[ngexcel]

re bonjour
j arrive à intégrer le code quand tu clic sur le bouton feuil1 tu as le choix sois tu tapes 2021 là tu ouvres userform sans textbox1 textbox2 et textbox106 ca fonctionne c'est ok je vois ma base de donnée
sur l autre bouton ouvre le userform en affichant les textbox 1 textbox2 et textbox106 par contre je vois pas ma base de donnée dans le userform help

 

[Staple1600]

Re

Tu avais compris que dans mon exemple le mot de passe était: 1234
?

Et comme suggéré précédemment: pars d'un fichier Excel tout simple pour faire des tests
(Comme je l'ai fait )

Il sera bien temps ensuite d'adapter sur "ton" fichier complexe.

 

[ngexcel]

oui bien sur

ca ouvre bien mon userform mais n affiche rien dedans comme mon exemple que je viens de t envoyer

 

[Staple1600]

Re

Tu ne suis pas mes conseils donc cela peut durer longtemps...
(Voici le code qu'on trouve dans la feuille 1 de test2.xlsm)

Sub CommandButton1_Click()
usfa = Me.Name
If Len(ActiveSheet.Cells(1, 1)) > 0 Then depart Else Exit Sub
UserForms(use(ActiveSheet.Cells(1, 1))).Show
'ChDrive "s"
'ChDir "S:\DI\Chaudronnerie\(1) Ilot A\VAQ\Photos VAQ"
End Sub

Tout le contraire de ce que j'expliquais dans le message#10

 

[ngexcel]

regarde j ai remis ton code dans dans feuil1 ca marche pas ca n' ouvre pas mon userform avec mes données
et les textbox reste visible c'est dommage que tu ne joint pas mon fichier