Discussion :

[simongex3]

Bonjour,

Depuis le début de l'après-midi j'essaie de faire cette macro mais je n'arrive pas. La voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub modepasse()
Dim mDp As String
mDp = InputBox("Saisissez ci dessous votre mot de passe", _
"M.P.F.E. Kontrol", "*****")
If mDp <> "Zaza" Then
MsgBox "Vous n'avez pas saisi le bon mot de passe", _
vbOKOnly, "M.P.F.E."
Exit Sub
Else
masub
End If
End Sub
 
Sub masub()
MsgBox "Bravo", , "M.P.F.E."
End Sub
 
Sub BASE_CODE()
'
' BASE_CODE Macro
' permet aux RH d'accéder aux données perso des employés
'
 
'
    ActiveWorkbook.CustomViews("BASE_CODE").Show
    Range("B1").Select
End Sub

Je vous explique brièvement; je veux que le masque pour le mdp apparaisse puis que ça change d'affichage personnalisé.

Malheureusement après avoir rentré le mdp, l'affichage perso ne change pas.

Est-ce que quelqu'un aurait la solution ?

Merci d’avance pour vos retours.

[Philippe Tulliez]

Bonjour,
Le titre de la discussion est "Appliquer plusieurs macros à un seul bouton" mais ta question porte sur le masque de saisie.
Que veux-tu exactement ?

Il semble d'après le texte qui apparaît MPFE et zaza comme mot de passe que tu aies déterré de vieux codes ayant été publiés du temps des forums MicroSoft (1999 - 2005)

[simongex3]

Est-ce que vous auriez une solution à jour ?

[Philippe Tulliez]

Bonjour,
Quelle est la question ?
Afficher un masque à la place du mot ?

[Pierre Fauconnier]

Salut.

Oufti... MPFE et ZaZa(raignée). Que de bons souvenirs, hein, Philippe? Ca ne nous rajeunit pas, ceci dit...

Pour revenir aux moutons de notre demandeur, je suis comme toi: je n'ai rien compris de sa question et de son besoin...

[Menhir]

Il n'est pas évident de comprendre ta question étant donné sa formulation.

Mais si ton problème est d'enchainer la macro BASE_CODE après avoir demander la mot de passe, dans ton code, supprime la partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
End Sub
 
Sub BASE_CODE()

[simongex3]

Bonjour,

Merci pour vos retours. Je vais essayer d'être plus clair dans ma demande pour arriver au but souhaité.

J'ai, dans ce cas, l'envie de faire une macro avec un changement d'affichage personnalisé. La voici, ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub AFF_MDP()
'
' AFF_MDP Macro
'
 
'
    ActiveWorkbook.CustomViews("MDP").Show
    Range("O33").Select
End Sub

Je souhaite, également, que ce changement d'affichage personnalisé se fasse après l'introduction d'un mot de passe via un masque.

1. Si le mot de passe est introduit avec succès, j'aimerais qu'un second masque s'ouvre qui stipule que le mot de passe a été introduit avec succès. Après ce masque, le changement d'affichage personnalisé se fait.

2. S'il y a une erreur dans le mot de passe, il y a un masque qui dit qu'il est erroné puis rien ne se passerait.

Bien sûr, lorsqu’on introduirait le mot de passe, en lieu et places des lettres, il y aurait des "***".

Merci d'avance pour vos retours et en espérant avoir une réponse concrète.

Bonne journée

Simon Gex