vérouiller l'éxécution

A

Arnaud

Guest

• 2 Juillet 2004

• #2

salut,

et bien tu peut mettre un mot de passe au début de l'exécution de ta macro par exemple

If InputBox("veuillez saisir le mot de passe", "mot de passe") <> "MotDePasse" Then Exit Sub

 

Vote positif 0 Vote négatif

R

reg

Guest

• 2 Juillet 2004

• #3

Re,

Cette méthode est astucieuse mais mon projet ne me permet pas d'utiliser cette méthode.

En effet, a partir d'un fichier excel d'origine contenant mes macros vb je créer (copie exacte) un deuxième fichier excel.

Si je suis cette méthode, je devrais écrire un mot de passe dans les deux fichiers lors de l'execution. Or j'aimerais interdire l'execution de la macro seulement dans le deuxième fichier.

Je suis dessus depuis hier,

merci,

reg

 

Vote positif 0 Vote négatif

A

Arnaud

Guest

• 2 Juillet 2004

• #4

re,

c peut être un peu de la magouille mais bon ça passe ^^

si cela doit fonctionner que sur un classeur, il suffit de rajouter la condition selon le nom du classeur :

If ActiveWorkbook.Name = "Classeur1.xls" Then
If InputBox("veuillez saisir le mot de passe", "mot de passe") <> "MotDePasse" Then Exit Sub
end if

 

Vote positif 0 Vote négatif

Y

Yeahou

Guest

• 2 Juillet 2004

• #5

Bonjour Reg, Arnaud, le forum

Reg, as tu essayé l'option private ? cela bloque l'exécution directe mais n'empèche pas l'appel par une autre procédure ou un élément de menu.

soit
option private module
en début de module

soit
private sub essai()
pour une procédure

A+

 

Vote positif 0 Vote négatif

R

reg

Guest

• 2 Juillet 2004

• #6

re à vous,

j'ai utiliser la bidouille d'Arnaud pour régler mon pb.

Franchement Merci,

maintenant je vais me mettre à faire une barre de progression.

Reg

 

Vote positif 0 Vote négatif