re tout le monde
encore des questions et je trouve pas la soluce
j'ai 2 codes
1er :
Sub mdp()
Dim essaiMdp, mdp As String
Dim essai As Integer
essai = 1
mdp = '1234'
While essai <= 3
essaiMdp = InputBox('Code entrée programme ?')
If essaiMdp = mdp Then
flag = True
essai = 4
Else
essai = essai + 1
flag = False
End If
Wend
If flag = True Then
Sheets('Menu').Activate
Else
MsgBox 'Au revoir.', 0, 'Consultez l'administrateur'
ThisWorkbook.Saved = True
Workbooks('JOEL.xls').Close
End If
End Sub
le 2ème
Private Sub Workbook_Open()
Dim mdp As String
mdp = InputBox('Code d'entrée ?', 'Merci d'entrer le mot de passe')
If mdp <> '1234' Then
mdp = InputBox('Deuxième essai !', 'Merci d'entrer le mot de passe')
If mdp <> '1234' Then
MsgBox 'Au revoir.', 0, 'Consultez l'administrateur !'
ThisWorkbook.Saved = True
Workbooks('JOEL.xls').Close
Exit Sub
Else
Sheets('Menu').Activate
End If
End If
End Sub
le 1er active très bien la feuille 'Menu' mais pas le 2ème !!
ou est l'erreur ?
merci a vous une nouvelle fois
JC