XL 2010 Recuperation de son fichier xlsm

Chris24

XLDnaute Impliqué

• 21 Février 2018

• #2

Bonsoir

En retour ton fichier modifié

Cdt

 

Pièces jointes

• EtudeNotesAppV1 - Copie.xlsm

  983.3 KB · Affichages: 41

Vote positif 0 Vote négatif

F

fattah_5791

XLDnaute Occasionnel

• 21 Février 2018

• #3

Merci Chris24, je croyais le perdre à jamais.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Février 2018

• #4

Bonsoir le fil, le forum

@fattah_5791
Pour infos
Il te suffisait de l'ouvrir sans activer les macros 😉
Puis ALT+F11 et commenter le code qui posait problème.

 

Vote positif 0 Vote négatif

F

fattah_5791

XLDnaute Occasionnel

• 22 Février 2018

• #5

Merci infiniment Staple1600,
On apprend tous les jours des choses nvlles,
Merci

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 22 Février 2018

• #6

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

 

Vote positif 0 Vote négatif

F

fattah_5791

XLDnaute Occasionnel

• 22 Février 2018

• #7

Merci encore Chris24 ça a marché parfaitement, seulement (je suis un peu gourmand) je veux que lorsque je tape le mdp, les caractères affichés seront des ***** (comme ca le mdp ne sera pas devoilé aux yeux des autres)
merci

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 23 Février 2018

• #8

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

Vote positif 0 Vote négatif