Bouton lance macro avec mot de passe

[FanExcel]

Bonjour,

Je travaille sur un nouveau fichier dans lequel des cellules sont protégées et des feuilles cachées, ce fichier étant destiné à des utilisateurs devant y effectuer de la saisie.

Au retour de ce fichier, je voudrais pouvoir lancer une macro qui déprotège les feuilles et une macro qui rende toutes les feuilles visibles.
A l'inverse, avant de renvoyer le fichier aux utilisateurs je souhaite re-proteger et masquer certaines feuilles;

Les macros sont écrites et associées à des boutons.
Le problème est que tout le monde peut les lancer à partir des boutons alors que je voudrais que seuls mes collaborateurs puissent lancer ces macros et que lorsqu'on clique sur le bouton il y ait un mot de passe qui permette de lancer la macro.

J'espère être assez claire car je ne peux pas envoyer de fichier c'est bcp trop gros

D'avance merci
H.

 

[tototiti2008]

Re : Bouton lance macro avec mot de passe

Bonjour FanExcel,

et sur quoi bloques-tu ?
le mot de passe ? Si tu fais un Userform avec demande de mot de passe ça ne marche pas ?

 

[PascalXLD]

Re : Bouton lance macro avec mot de passe

Bonjour

un petit code en début de macro du style

toto=inputbox("Mot de passe")
if toto <>"tonpassword" then exit sub

 

[FanExcel]

Re : Bouton lance macro avec mot de passe

Voici mon code et le mot passe est yes

lorsque je clique sur le bouton de la macro, il me demande bien le mot de passe mais elle s'exécute sans mot de passe ou avec n'importe quoi

'Proteger
Sub ProtecFeuilles1()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Activation de la protection des feuilles")
For Each f In Worksheets
f.Protect MDP
Next
End Sub

'Déproteger
Sub DProtecFeuilles0()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Désactivation de la protection des feuilles")
For Each f In Worksheets
f.Unprotect MDP
Next
End Sub

 

[FanExcel]

Re : Bouton lance macro avec mot de passe

VBA, je suis débutante et bloque souvent
Est ce que mon code est complètement out ou bien y a-t-il de l'espoir...?

 

[FanExcel]

Re : Bouton lance macro avec mot de passe

Aie,aie,aie,

Je suis coincée et crains que mon code soit trop mauvais.......
Pascal, Tototiti, vous êtes tjrs la?

 

[PascalXLD]

Re : Bouton lance macro avec mot de passe

re

tu as testé avec mon code ?

'Proteger
Sub ProtecFeuilles1()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Activation de la protection des feuilles")
if MDP <> "tonpassword" then exit sub
For Each f In Worksheets
f.Protect MDP
Next
End Sub

'Déproteger
Sub DProtecFeuilles0()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Désactivation de la protection des feuilles")
if MDP <> "tonpassword" then exit sub
For Each f In Worksheets
f.Unprotect MDP
Next
End Sub

 

[FanExcel]

Re : Bouton lance macro avec mot de passe

Oui, ça ne marche pas
La macro s'arrete à ExitSub quel que soit le mot de passe saisi ou rien

 

[tototiti2008]

Re : Bouton lance macro avec mot de passe

tu tapes bien "tonpassword" comme mot de passe ?

 

[FanExcel]

Re : Bouton lance macro avec mot de passe

pfffffffff
j'avais mis un blanc dans <>MonPassWord....
Suis un peu en speed

Merci Pascal, ça marche !!!!

Je prépare une qutre petite question sur une macro qui afficherait toutes les feuilles d'un classeur et une autre qui n'en masquerait que certaines, le tout avec un petit mot de passe là aussi.
Je pense que je ne suis pas loin mais je butte tjrs sur quelque chose
J'envoie mon code dans un moment

Encore merci, je progresse petit à petit

 

[PascalXLD]

Re : Bouton lance macro avec mot de passe

pfffffffff
j'avais mis un blanc dans <>MonPassWord....
Suis un peu en speed

Re

A force d'être dans son problème on ne voit plus rien après

Va prendre un petit café je t'accorde la pause

 

[FanExcel]

Re : Bouton lance macro avec mot de passe

Tu as raison, je vais prendre un café.

C'est 4h, c'est un bon plan....

 

[FanExcel]

Re : Bouton lance macro avec mot de passe

--------------------------------------------------------------------------------

Bonjour,

Je viens de reprendre un café...lol

Je reviens sur ce post car, bien que la macro fonctionne très bien, je m'aperçois que, si un utilisateur fait Outils\Protection\Oter la protection de la feuille, cela fonctionne.

Il doit manquer quelque chose dans la macro?
La voici

'Proteger
Sub ProtecFeuilles1()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Activation de la protection des feuilles")
If MDP <> "toto" Then Exit Sub
For Each f In Worksheets
f.Protect MDP
Next
End Sub
d'avance merci

 

[tototiti2008]

Re : Bouton lance macro avec mot de passe

Bonjour à tous,

FanExcel, chez moi ta macro de protection fonctionne trés bien, et si je veux déprotéger il me faut le mot de passe "toto"... bref, ça a l'air de fonctionner

 

[FanExcel]

Re : Bouton lance macro avec mot de passe

Hello TotoTiti

J'ai fait un extrait d'un fichier dans lequel ces macros "sévissent"
Il y en a une qui protège automatiquement le classeur lorsqu'on le ferme et il y a un bouton pour déprotéger.
Sauf que si, dans le menu, je fais outil\protection... excel déprotège

Sais pas pourquoi....?