Macro principale pour avtiver les autres marcos du meme classeur

Robert à dit:

Code:

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

Cliquez pour agrandir...

Robert à dit:

Bonjour Ilino, Philippe, bonjour le forum,

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

Code:

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

Cliquez pour agrandir...