OVH Cloud OVH Cloud

bouton de commande et mot de passe

21 réponses
Avatar
Zoltan
Salut à tous,

peut on protéger un bouton de commande par un mot de passe?
si oui, comment?

merci de votre aide


--
http://perso.wanadoo.fr/aquabidule/
http://www.rouhling.net
http://www.aquariumdudiscus.fr

10 réponses

1 2 3
Avatar
peggy
Bonjour,

Il faut séléctionner la totalité de la feuille, aller dans
le menu format, Cellules, Protection : décocher verrouillé.

Aprés, selectionner le bouton, cliquer droit, format de
controle, protection, et cocher verrouillé.

Aller dans menu outils, protection, proteger la feuille,
en mettant un mot de passe.

Ainsi il n'y aura que le bouton de protéger.

Cordialement, peggy
-----Message d'origine-----
Salut à tous,

peut on protéger un bouton de commande par un mot de
passe?

si oui, comment?

merci de votre aide


--
http://perso.wanadoo.fr/aquabidule/
http://www.rouhling.net
http://www.aquariumdudiscus.fr


.



Avatar
Zoltan
Aprés, selectionner le bouton, cliquer droit, format de
controle, protection, et cocher verrouillé.

Aller dans menu outils, protection, proteger la feuille,
en mettant un mot de passe.

Ainsi il n'y aura que le bouton de protéger.

oui mais ça ne me donnera pas de mot de passe quand on va cliquer sur le
bouton ?


Avatar
sabatier
j'ai quand même l'impression, en regardant à travers mes yeux quasiment
clos, qu'il manque quelque chose dans ta proc, zoltan...
me trompe-je, chris, toi qui veilles encore?
jps

Zoltan a écrit:
voilà, j'ai mis cette procédure donnée par Chris dans un autre fil
et ça fonctionne très bien, bien sur il suffit de taper
alt + F11 pour voir le code, mais les personnes qui utiliseront
ce bouton ne le savent pas forcément et ça leurs évitera de faire des
bêtises

Sub reserV()
Dim reP As String
reP = InputBox("Quel est le mot magique...?", "Proc réservée...")
If reP = "" Then Exit Sub
If reP <> "zaza" Then
MsgBox "Impossible d'exécuter la procédure " _
& "sans le mot magique !", , "Mot de passe incorrect..."
Exit Sub
End If
'le reste du code si mot de passe OK, ex...
MsgBox "Hello !"
End Sub







Avatar
ChrisV
Re...

bien sur il suffit de taper
alt + F11 pour voir le code


Protège ton projet, dans VBE: Propriétés de VBAProject.../Protection


ChrisV


"Zoltan" a écrit dans le message de news:

voilà, j'ai mis cette procédure donnée par Chris dans un autre fil
et ça fonctionne très bien, bien sur il suffit de taper
alt + F11 pour voir le code, mais les personnes qui utiliseront
ce bouton ne le savent pas forcément et ça leurs évitera de faire des
bêtises
Sub reserV()
Dim reP As String
reP = InputBox("Quel est le mot magique...?", "Proc réservée...")
If reP = "" Then Exit Sub
If reP <> "zaza" Then
MsgBox "Impossible d'exécuter la procédure " _
& "sans le mot magique !", , "Mot de passe incorrect..."
Exit Sub
End If
'le reste du code si mot de passe OK, ex...
MsgBox "Hello !"
End Sub






Avatar
ChrisV
Je ne vois pas mon vieil ami...
pourtant mes yeux sont grands ouverts !


ChrisV


"sabatier" a écrit dans le message de news:

j'ai quand même l'impression, en regardant à travers mes yeux quasiment
clos, qu'il manque quelque chose dans ta proc, zoltan...
me trompe-je, chris, toi qui veilles encore?
jps

Zoltan a écrit:
voilà, j'ai mis cette procédure donnée par Chris dans un autre fil
et ça fonctionne très bien, bien sur il suffit de taper
alt + F11 pour voir le code, mais les personnes qui utiliseront
ce bouton ne le savent pas forcément et ça leurs évitera de faire des
bêtises

Sub reserV()
Dim reP As String
reP = InputBox("Quel est le mot magique...?", "Proc réservée...")
If reP = "" Then Exit Sub
If reP <> "zaza" Then
MsgBox "Impossible d'exécuter la procédure " _
& "sans le mot magique !", , "Mot de passe incorrect..."
Exit Sub
End If
'le reste du code si mot de passe OK, ex...
MsgBox "Hello !"
End Sub










Avatar
Zoltan
bien sur il suffit de taper
alt + F11 pour voir le code


Protège ton projet, dans VBE: Propriétés de VBAProject.../Protection


Yes !
veeeeeeepeeeee !
ça me plait bien ça, et en plus ça marche ;-))

merci beaucoup
(euh je crois que je l'ai déjà dis pas mal de fois ça,... m'ouarf)


Avatar
FxM
Zoltan wrote:

bien sur il suffit de taper
alt + F11 pour voir le code


Protège ton projet, dans VBE: Propriétés de VBAProject.../Protection



Yes !
veeeeeeepeeeee !
ça me plait bien ça, et en plus ça marche ;-))

merci beaucoup
(euh je crois que je l'ai déjà dis pas mal de fois ça,... m'ouarf)




Bonjour,

Je souhaiterais demander à l'aimable assemblée proposant de mettre un
mot de passe sur le projet, un classeur ou une feuille d'également
recommander d'écrire le dit-MDP quelque part car nous n'assurons pas
la restauration des MDP perdus, que ca coutera des cahuètes et que les
assiettes voleront bas !
Un moyen efficace et assez simple reste d'ajouter une feuille et d'y
inscrire le(s) dit(s)-MDP.

Remerciements anticipés.

@+
FxM



Avatar
Zoltan
Je souhaiterais demander à l'aimable assemblée proposant de mettre un
mot de passe sur le projet, un classeur ou une feuille d'également
recommander d'écrire le dit-MDP quelque part car nous n'assurons pas
la restauration des MDP perdus,
ça me parait évident


que ca coutera des cahuètes et que les assiettes voleront bas !
ah ça.....


Un moyen efficace et assez simple reste d'ajouter une feuille et d'y
inscrire le(s) dit(s)-MDP.
ou ça une feuille? quelle feuille?


moi j'ai inscrit les mot de passe sur la feuille de travail mais en dehors
de la zone visible, j'ai bloqué le défilement
si vous avez une meilleure solution, je suis vivement intéressé

merci aussi

Avatar
Zoltan
Moi je le mets dans un msgbox à l'ouverture du fichier... comme ça je
l'oublie

pas !


m'ouarf !
mort de rire ;-))))

Avatar
Zoltan
et comment faire pour qu'on ne voit pas le mot de passe?
par exemple qu'il y ait des points ou des étoiles à la place


merci
1 2 3