Mot de passe macro

[Arnaud]

Bonjour le forum

Peut-on affecter un mot de passe pour l'éxecution d'une macro ?
Je m'explique: Quand le clique sur le bouton d'éxecution de la macro, je voudrais que l'on me demande un mot de passe pour que la macro puisse s'éxecuter, et avoir un message d'erreur si l'accés n'est pas autorisé

@+

 

[eric]

Bonjour,

Je ne sais pas si on peut mettre un mot de passe, mais on peut en créer un dans un userform

Fais un userform avec un textbox et un commandbutton.
Dans ton textbox, dans la propriété "passwordchar", met un "*". Les lettres saisies sont remplacées par ce signe.

Pour mon exemple, le mot de passe attendu est "coucou".

Dans ton commandbutton, met le code suivant :
Private Sub CommandButton1_Click()
If TextBox1 <> "coucou" Then
MsgBox ("mot de passe erroné")
TextBox1.Value = ""
TextBox1.SetFocus
Else
MsgBox ("ok, bon mot de passe")
'tu mets ici la suite de ta procédure

End If

End Sub

 

[Arnaud]

Salut Eric

Je vais eesayer de mettre cela en pratique et je te tiens au courant

@+

 

[Arnaud]

Re salut Eric

J'ai essayé, je l'ai pris par tout les cotés et rien ne marche..je dois me planter quelque part !!!!!!!!!
Je joint mon fichier (en fait c'est un fichier que j'ai récupéré et qui montre en gros ce que je voudrais faire).
Dans le détail cela donne ceci:
A l'ouverture, je voudrais que l'application prenne le plus de place possible sur l'écran (genre plein écran) et sans aucune barre (menu ou d'outils).
Avec un bouton (comme dans le fichier) pouvoir rétablir la barre de menu initial (l'activation se ferait alors par la saisie d'un mot de passe.

Bon j'espére que ce n'est pas trop alambiqué

@+

 

[xa]

Bonjour,

C'est normale que cela ne fonctionne pas
Tu as mis ton code dans un bouton nommé DeletemenuBar
alors qu'il se nomme Commandbutton1
J'ai fais la modif, mais comme je ne sais pas quel macro doit
se dérouler après validation du Mot de passe

tu peux également mettre ce code dans ton userform
ce qui empêchera d'utiliser la croix de fermeture
et obligatoirement saisir le mot de passe
si le password est erroné alors le userform se désactive et rien
ne se passe


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Cette commande ne peut être exécutée." & _
vbCrLf & vbCrLf & "Veuiller utiliser la commande Quitter" _
, vbOKOnly + vbInformation, "Fin de la commande"
Cancel = True
End If
End Sub

 

[Arnaud]

Bonsoir Xa

En fait, l'application s'ouvre toujours sans barre et c'est la macro " deletemenubar" que je souhaite activer par mot de passe, elle permet de réafficher les barres habituelles. Mais pour l'instant je séche lamantablement.

@+

 

[xa]

Bonjour,

Pourrais tu donner une peux plus de détail, que veux tu qu'il y ai dans
ta barre de menu, car à l'ouverture tu as une barre de menu vierge

Merci

Xa

 

[Arnaud]

Bonjour Xa et le forum

En fait le fichier s'ouvre dés le départ avec une barre de menu vierge (c'est pour empêcher les utilisateurs de faire des mofifs).
Dans le fichier d'exemple il y a un bouton "nouvelle barre" qui en fait ne doit pas figurer dans le fichier final car il fichier s'initialise toujours avec une barre de menu vierge.
C'est le bouton "restaurer la barre de menu normale" qui doit me demander un mot de passe.

Dans l'absolu, j'aimerai que mon fichier s'ouvre sans barre d'outils, de formule, d'état, sans les onglets et sans les en-têtes de ligne et de colonne.
Qu'avec un bouton de commande (activé par un mot de passe) tout se réinitialise. Et qu'à la fermeture tout se remette comme à l'ouverture.

Bon, plus simple il y a surement mais j'ai pas encore trouvé.
Bonne journée

@+

 

[xa]

Salut

Ci-joint le programme
regarde et dis moi si cela te convient



S@lut

 

[Arnaud]

Re bonjour Xa

Cela marche impéccable, un grand merci

Pour aller encore plus loin, peut-on faire en sorte (comme je l'indique dans mon précédent post) qu'à l'ouverture il n'y ait que la barre de menu vierge et rien d'autre (barre d'outils, de formule, d'état, les onglets et les en-têtes de ligne et de colonne. Le tout réinitialiser par le bouton.

@+

 

[xa]

Re

Donc maintenant cela doit te convenir parfaitement

N'est ce pas ?


Cela fera un verre virtuel



Bye

 

[Arnaud]

Re

C'est plus qu'un verre, c'est la bouteille virtuelle entiére

Merci @+

 

[Arnaud]

Bonsoir Xa, c'est encore moi

J'ai encore un truc à demander:
J'ai un peu modifier le fichier que tu avais fait, j'ai supprimé le mode plein écran. Je me suis aperçu qu'en fait il aurait été plus simple de ne pas avoir de barre de menu du tout à l'ouverture plutôt qu'un vierge.
Crois-tu que c'est possible

@+

 

[xa]

Bonjour,

Désolé de ne pas avoir rendu réponse plus tôt

A ma connaissance NON, mais une solution est possible c'est de passé par
un Userform.
Quand le Userform est affiché on ne peut pas bricoler les barres d'outils et saisir des données dans excel

Quel version excel à tu?
Est tu débutant ?


Salut

Xa

 

[Arnaud]

Bonjour Xa et le forum

En bidouillant du code une bonne partie de la nuit à partir de plusieurs fichiers, je suis parvenu à quelque chose qui ressemble à ce que je cherchais.
Voilà comment il se présente: Au départ c'est un fichier prévu pour s'ouvrir en plein écran (code que j'ai oté), j'ai ajouté un morceau de code pour conserver une trace des barres d'outils présente dans excel. Cela les enléve à l'ouverture et les réintégre à la fermeture (macro hide / restore toolbar). Le seul truc c'est que je ne suis pas arrivé à faire, c'est de l'inclure dans la macro qui ote le plein écran.
Tout ça pour te demander, si je n'abuse pas de trop, si tu pouvais me remettre le code avec le mot de passe sur le bouton " enleve plein écran"

Merci d'avance
@+