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.