Macro principale pour avtiver les autres marcos du meme classeur

[Ilino]

FORUM BONJOUR
Est t il possible de créer une macro principale avec mot de passe pour activer toutes les macros (secondaire) du même classeur?
merci
ILINO RAMO

 

[phlaurent55]

Re : Macro principale pour avtiver les autres marcos du meme classeur

Bonjour Ilino,

voir fichier joint ...... à adapter selon tes besoins

à+
Philippe

 

[Robert]

Re : Macro principale pour avtiver les autres marcos du meme classeur

Bonjour Ilino, bonjour le forum,

Une proposition qui nécessite trois étapes.
Étape 1 : une macro à l'ouverture du fichier :

Private Sub Workbook_Open()
Dim a As Stringa = Application.InputBox("Entrez le mot de passe !", "Mot de passe", Type:=2)
mdp = IIf(a = "toto", True, False)
End Sub

tu adapteras le mot de passe (ici toto)...

Étape 2 : dans un module (Module1 par exemple) tu places tout en haut, avant toute procédure, la ligne ci-dessous :

Public mdp As Boolean

Étape 3 : Toutes tes macros doivent commencer par la ligne :

If mdp = False Then Exit Sub

Ça devrait marcher...

 

[Ilino]

Re : Macro principale pour avtiver les autres marcos du meme classeur

Private Sub Workbook_Open()
Dim a As Stringa = Application.InputBox("Entrez le mot de passe !", "Mot de passe", Type:=2)
mdp = IIf(a = "toto", True, False)
[/COLOR][/QUOTE]

Bonjour tous le monde, Bonjour phlaurent, Bonjour ROBERT 
un grand merci pour vous les deux le code de PHLAURENT ca me convient bien merci Conceranat les etapes de ROBERT j'ai trouvé un pblm ( voir ci desus a quel niveau le pblm detecté)
merci

 

[Robert]

Re : Macro principale pour avtiver les autres marcos du meme classeur

Bonjour Ilino, Philippe, bonjour le forum,

L'erreur vient des lignes qui se sont collées... Voilà la solution :

Private Sub Workbook_Open()
Dim a As String

a = Application.InputBox("Entrez le mot de passe !", "Mot de passe", Type:=2)
mdp = IIf(a = "toto", True, False)
End Sub

 

[Ilino]

Re : Macro principale pour avtiver les autres marcos du meme classeur

Bonjour Ilino, Philippe, bonjour le forum,

L'erreur vient des lignes qui se sont collées... Voilà la solution :

Private Sub Workbook_Open()
Dim a As String

a = Application.InputBox("Entrez le mot de passe !", "Mot de passe", Type:=2)
mdp = IIf(a = "toto", True, False)
End Sub

ReBonjour Robert
tu as raison, 😀je suis bete ( desolé pour ce mots) je retire ma question 😱
ta methode fonctionne tres bien
THINKS
RAMO ILINO