XL 2010 Recuperation de son fichier xlsm

fattah_5791

XLDnaute Occasionnel
Bonjour,

à cause d'une faute d'inattention, j ai mal ecrit une boucle dans le module thisworkbook qui ferme le fichier si les tentatives de mdp depassent 3.

le fichier se ferme tjrs ( un GOTO mal placé).
merci de recuperer cet applicatif

rq: le mot de passe d'ouverture est 0000 (4 zeros)
Le mot de passe du projet est: 127261127261 Ea

Merci infiniment
 

Pièces jointes

  • EtudeNotesAppV1 - Copie.xlsm
    1 MB · Affichages: 35

Chris24

XLDnaute Impliqué
Bonjour fattah_5791, Staple1600, le forum

l'instruction Goto est une réminiscence du basic, plus guère utilisée dans VBA.
Tu peux remplacer ta procédure Workbook_Open par celle-ci

VB:
Private Sub Workbook_Open()
Dim j As Integer

For j = 1 To 3
 mdp = InputBox("Entrer mot de passe :", "Mot de passe d'ouverture:")
    If mdp = "0000" Then
        Sheets("Index").Activate
        Range("A1").Select
        Exit For
    Else
        MsgBox "Mot de passe incorrect", vbCritical + vbOKOnly, "Erreur"
        If j >= 3 Then
           MsgBox "Vous avez droit à 3 tentatives, l'applicatif sera fermé !"
            ActiveWorkbook.Close
        End If
  End If
Next
End Sub

Cdt
 

Chris24

XLDnaute Impliqué
Bonjour fattah_5791, le forum

Tu n'as pas mis ta version d'excel, teste cette fonction, elle fonctionne avec excel 97 -> 2010 et théoriquement versions ultérieures.
Cette fonction permet de remplacer les caractères par des * dans un InputBox sans avoir à créer un formulaire.

Bonne journée
Cdt
 

Pièces jointes

  • EtudeNotesAppV1 - Copie (2).xlsm
    988.8 KB · Affichages: 35

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG